A120825 a(n) consecutive digits ascending beginning with the digit 7 give a prime.
1, 5, 15, 51, 8411
Offset: 1
Examples
1 is here because 7 is prime. 5 is here because 78901 is prime. 15 is here because 789012345678901 is a prime. 51 is here because 789012345678901234567890123456789012345678901234567 is prime.
Programs
-
Mathematica
fQ[n_] := PrimeQ@ FromDigits@ Mod[6+Range@n, 10]; lst = {}; Do[ If[fQ@n, AppendTo[lst, n]; Print@n], {n, 5000}]; lst
Extensions
a(5) from Bert Dobbelaere, Apr 01 2025
Comments