login
A048401
Primes with consecutive digits that differ exactly by 4.
8
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
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 *)
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Apr 15 1999
EXTENSIONS
More terms from Naohiro Nomoto, Jul 28 2001
STATUS
approved