OFFSET
1,1
COMMENTS
Sequence A048519 lists the primes for which at least (rather than exactly) one iteration of A062028 is "possible". See A048524 .. A048527 and A320878 .. A320880 for further subsequences, and A090009 for the list of their initial terms, starting chains of length >= 3 .. 9. - M. F. Hasler, Nov 09 2018
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
prime 1999 -> 1999 + (1+9+9+9) = prime 2027 -> next iteration yields composite 2038.
MATHEMATICA
ppd1Q[n_]:=PrimeQ[Rest[NestList[#+Total[IntegerDigits[#]]&, n, 2]]] == {True, False}; Select[Prime[Range[300]], ppd1Q] (* Harvey P. Dale, Nov 10 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, May 15 1999
STATUS
approved