A120821 a(n) consecutive digits ascending beginning with the digit 3 give a prime.
1, 179, 529, 62625
Offset: 1
Programs
-
Mathematica
fQ[n_] := PrimeQ@ FromDigits@ Mod[2+Range@n, 10]; lst = {}; Do[ If[fQ@n, AppendTo[lst, n]; Print@n], {n, 10000}]; lst
Extensions
a(4) from Michael S. Branicky, Apr 03 2025
Comments