|
%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
|
