A120824 a(n) consecutive digits ascending beginning with the digit 6 give a prime.
2, 6, 36, 122, 336, 82812
Offset: 1
Examples
6 is a term since 678901 is a prime.
Programs
-
Mathematica
fQ[n_] := PrimeQ@ FromDigits@ Mod[5+Range@n, 10]; lst = {}; Do[ If[fQ@n, AppendTo[lst, n]; Print@n], {n, 5000}]; lst
Extensions
a(6) from Michael S. Branicky, Apr 05 2025
Comments