A048524 Primes for which only two iterations of 'Prime plus its digit sum equals a prime' are possible.

11, 59, 101, 149, 167, 257, 293, 367, 419, 479, 547, 617, 727, 839, 1409, 1579, 1847, 2039, 2129, 2617, 2657, 2837, 3449, 3517, 3539, 3607, 3719, 4217, 4637, 4877, 5689, 5807, 5861, 6037, 6257, 6761, 7027, 7517, 8039, 8741, 8969, 9371, 9377, 10667

Offset

1,1

Links

Lars Blomberg, Table of n, a(n) for n = 1..10000

Example

prime 727 -> 727 + (7+2+7) = prime 743 -> 743 + (7+4+3) = prime 757 -> next iteration yields composite 776.

Mathematica

Select[Prime[Range[1400]], Boole[PrimeQ[Rest[NestList[ #+Total[ IntegerDigits[ #]]&, #, 3]]]] == {1, 1, 0}&] (* Harvey P. Dale, Oct 31 2018 *)

Crossrefs

Cf. A047791, A048519.

Sequence in context: A273618 A168539 A320882 * A186312 A142401 A139859

Adjacent sequences: A048521 A048522 A048523 * A048525 A048526 A048527

Keyword

nonn,base

Author

Patrick De Geest, May 15 1999

Extensions

Changed offset by Lars Blomberg, Dec 05 2013

Status

approved