A120829 a(n) consecutive digits descending beginning with the digit 4 give a prime.
2, 64, 176, 1502, 4676, 7518, 8244, 8318
Offset: 1
Examples
2 is a term since 43 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, 10000}]; lst
Extensions
a(6)-a(7) corrected and a(8) from Michael S. Branicky, Apr 08 2025
Comments