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
KEYWORD
nonn,base,easy
AUTHOR
Juri-Stepan Gerasimov, Jan 07 2009
EXTENSIONS
Corrected and edited by Omar E. Pol, Jan 12 2009
STATUS
approved