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

Author

Patrick De Geest, Apr 15 1999

Keywords

• nonn
• base

Links

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

Crossrefs

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

Programs

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 *)

Extensions

More terms from Naohiro Nomoto, Jul 28 2001