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,1

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A054217 A355521 A048414 * A249692 A140768 A192578

Adjacent sequences: A048396 A048397 A048398 * A048400 A048401 A048402

Keyword

nonn,base

Author

Patrick De Geest, Apr 15 1999

Status

approved