A120827 a(n) consecutive digits ascending beginning with the digit 9 give a prime.
13, 29, 43
Offset: 1
Examples
13 is a term since 9012345678901 is a prime.
Programs
-
Mathematica
fQ[n_] := PrimeQ@ FromDigits@ Mod[8+Range@n, 10]; lst = {}; Do[ If[fQ@n, AppendTo[lst, n]; Print@n], {n, 5000}]; lst Flatten[Position[Table[FromDigits[PadRight[{},n,{9,0,1,2,3,4,5,6,7,8}]],{n,100}],?PrimeQ]] (* _Harvey P. Dale, Sep 06 2015 *)
Comments