A048401 Primes with consecutive digits that differ exactly by 4.

2, 3, 5, 7, 37, 59, 73, 151, 373, 15959, 95959, 515951, 595159, 595951, 9515959, 51515159, 159595151, 159595951, 5151515951, 5159515159, 5159515951, 5951515151, 5951515951, 5959515151, 5959595951, 15151595951, 15951515159

Offset

1,1

Links

Sean A. Irvine, Table of n, a(n) for n = 1..1000

Mathematica

pd[{a_, b_, c___}]:=Flatten[Table[Select[FromDigits/@Select[Tuples[ {a, b, c}, n], Union[Abs[Differences[#]]]=={4}&], PrimeQ], {n, 11}]]; Union[Join[{2, 3, 5, 7}, pd[{1, 5, 9}], pd[{3, 7}]]] (* Harvey P. Dale, Aug 23 2011 *)

Crossrefs

Cf. A048398, A048399, A048400, A048402, A048403, A048404, A048405, A048406.

Sequence in context: A090713 A090912 A048416 * A288718 A289861 A160748

Adjacent sequences: A048398 A048399 A048400 * A048402 A048403 A048404

Keyword

nonn,base

Author

Patrick De Geest, Apr 15 1999

Extensions

More terms from Naohiro Nomoto, Jul 28 2001

Status

approved