A048401 - OEIS

%I #25 Jun 16 2021 02:12:38

%S 2,3,5,7,37,59,73,151,373,15959,95959,515951,595159,595951,9515959,

%T 51515159,159595151,159595951,5151515951,5159515159,5159515951,

%U 5951515151,5951515951,5959515151,5959595951,15151595951,15951515159

%N Primes with consecutive digits that differ exactly by 4.

%H Sean A. Irvine, <a href="/A048401/b048401.txt">Table of n, a(n) for n = 1..1000</a>

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

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

%K nonn,base

%O 1,1

%A _Patrick De Geest_, Apr 15 1999

%E More terms from _Naohiro Nomoto_, Jul 28 2001