A048399 Primes with consecutive digits that differ exactly by 2.

2, 3, 5, 7, 13, 31, 53, 79, 97, 131, 313, 353, 757, 797, 31357, 35353, 35753, 35797, 75353, 75797, 79757, 97579, 131357, 135353, 135757, 353531, 531353, 535757, 575753, 579757, 757579, 797579, 975313, 975797, 979757, 1313579, 3131353

Offset: 1

Author

Patrick De Geest, Apr 15 1999

Keywords

• nonn
• base

Links

• Alois P. Heinz, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A033088, A048398, A048400, A048401, A048402, A048403, A048404, A048405.

Programs

Mathematica

Join[{2,3,5,7},Select[Prime[Range[230000]],Union[Abs[ Differences[ IntegerDigits[ #]]]]=={2}&]] (* Harvey P. Dale, Nov 03 2013 *)