A120820 a(n) consecutive digits ascending beginning with the digit 2 give a prime.
1, 2, 8, 82, 118, 158, 2122, 2242, 2388
Offset: 1
Examples
8 is a term since 23456789 is a prime.
Programs
-
Mathematica
fQ[n_] := PrimeQ@ FromDigits@ Mod[1+Range@n, 10]; lst = {}; Do[ If[fQ@n, AppendTo[lst, n]; Print@n], {n, 10000}]; lst
Comments