|
%I #5 Jul 01 2013 21:43:02
%S 4,8,194
%N Primes with n consecutive ascending digits beginning with the digit four.
%C Digits are in ascending order beginning with 4; after 9 comes 0.
%e 8 is a term since 45678901 is a prime.
%t fQ[n_] := PrimeQ@ FromDigits@ Mod[3+Range@n, 10]; lst = {}; Do[ If[fQ@n, AppendTo[lst, n]; Print@n], {n, 10000}]; lst
%Y Cf. A006055, A120829, A120819, A120820, A120821, A120823, A120824, A120825, A120826, A120827.
%K base,bref,hard,nonn
%O 1,1
%A _Robert G. Wilson v_, Jul 05 2006
|
