%I #16 Mar 01 2023 10:56:14
%S 2,3,5,7,41,47,14741,14747,74747,1414741,1474141,7414741,4141414747,
%T 4147414147,14141414141,14141414741,14141474741,14141474747,
%U 14147414741,14147474141,14147474147,14741414747,74141414147,74141414741,74147414741,74741474741,74747414141
%N Primes with consecutive digits that differ exactly by 3.
%C All terms with more than a single digit must comprise only the digits 1, 4, and 7, because no number comprising the digits 2, 5, and 8 or the digits 3, 6, and 9 can be prime. - _Harvey P. Dale_, Mar 01 2023
%H Sean A. Irvine, <a href="/A048400/b048400.txt">Table of n, a(n) for n = 1..1000</a>
%t Join[{2,3,5,7},Table[Select[FromDigits/@Tuples[{1,4,7},n],PrimeQ[#]&& Union[ Abs[ Differences[ IntegerDigits[ #]]]]=={3}&],{n,11}]//Flatten] (* _Harvey P. Dale_, Mar 01 2023 *)
%Y Cf. A033081, A048398, A048399, A048401, A048402, A048403, A048404, A048405.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Apr 15 1999
%E More terms from _Naohiro Nomoto_, Jul 28 2001
%E More terms from _Sean A. Irvine_, Jun 15 2021
|