login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A154313 Numbers n such that abs(A007605(n) - A007953(n)) < 2. 1
1, 2, 7, 13, 16, 29, 32, 38, 53, 54, 56, 63, 66, 68, 69, 76, 88, 94, 126, 156, 175, 176, 182, 183, 191, 192, 212, 213, 218, 227, 248, 252, 255, 258, 259, 280, 282, 286, 291, 293, 294, 295, 298, 306, 307, 321, 323, 324, 325, 326, 331, 334, 335, 338, 345, 348 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Also, numbers n such that abs(A090431(n)) < 2. - Omar E. Pol, Jan 12 2009

LINKS

G. C. Greubel and Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 1000 terms from Greubel)

EXAMPLE

If n = 16 then prime(n) = 53 and abs((5+3)-(1+6)) = 8-7 = 1, so 16 is in the sequence.

MATHEMATICA

Select[Range[500], Abs[Apply[Plus, RealDigits[Prime[#]][[1]]] - Sum[DigitCount[#][[i]]*i, {i, 9}]] < 2 &] (* G. C. Greubel, Sep 10 2016 *)

PROG

(PARI) list(lim)=my(v=List(), n); forprime(p=2, , if(n++>lim, break); if(abs(sumdigits(n)-sumdigits(p))<2, listput(v, n))); Vec(v) \\ Charles R Greathouse IV, Sep 10 2016

CROSSREFS

Cf. A000040, A141468, A007605, A007953, A090431.

Sequence in context: A018322 A063222 A030592 * A196012 A065104 A138645

Adjacent sequences:  A154310 A154311 A154312 * A154314 A154315 A154316

KEYWORD

nonn,base,easy

AUTHOR

Juri-Stepan Gerasimov, Jan 07 2009

EXTENSIONS

Corrected and edited by Omar E. Pol, Jan 12 2009

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 15 23:24 EDT 2021. Contains 343937 sequences. (Running on oeis4.)