|
%I #5 Jul 01 2013 21:42:10
%S 1,179,529
%N Primes with n consecutive ascending digits beginning with the digit three.
%C Digits are in ascending order beginning with 3 and after 9 comes 0.
%C The sequence "Primes with n consecutive descending digits beginning with the digit three" has only one term, 1 which represents the prime 3.
%t fQ[n_] := PrimeQ@ FromDigits@ Mod[2+Range@n, 10]; lst = {}; Do[ If[fQ@n, AppendTo[lst, n]; Print@n], {n, 10000}]; lst
%Y Cf. A006055, A120819, A120820, A120822, A120823, A120824, A120825, A120826, A120827.
%K base,bref,hard,nonn
%O 1,2
%A _Robert G. Wilson v_, Jul 05 2006
|
