A048402 Primes with consecutive digits that differ exactly by 5.

2, 3, 5, 7, 61, 83, 383, 727, 72727, 94949, 1616161, 383838383, 727272727, 383838383838383, 38383838383838383, 72727272727272727, 94949494949494949, 383838383838383838383

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..30

Mathematica

Module[{nn=50, w1, w2}, w1=Flatten[Table[Select[FromDigits/@Table[ PadRight[ {}, n, {a, a+5}], {n, 2, nn}], PrimeQ], {a, 4}]]; w2=Flatten[Table[Select[ FromDigits/@ Table[PadRight[{}, n, {a+5, a}], {n, 2, nn}], PrimeQ], {a, 4}]]; Join[ {2, 3, 5, 7}, w1, w2]//Union] (* Harvey P. Dale, Jan 09 2021 *)

Crossrefs

Cf. A048398, A048399, A048400, A048401, A048403, A048404, A048405, A048407.

Sequence in context: A244595 A244597 A237439 * A237440 A237441 A171029

Adjacent sequences: A048399 A048400 A048401 * A048403 A048404 A048405

Keyword

nonn,base

Author

Patrick De Geest, Apr 15 1999

Status

approved