A092571 Primes of the form 60*R_k + 1, where R_k is the repunit (A002275) of length k.
61, 661, 6661, 6666666661, 666666666666666661, 666666666666666666661, 6666666666666666666661, 6666666666666666666666666661, 6666666666666666666666666666666666666666661
Offset: 1
Keywords
Links
Programs
-
Mathematica
Select[Table[FromDigits[PadLeft[{1},n,6]],{n,2,50}],PrimeQ] (* Harvey P. Dale, Sep 21 2023 *)
Comments