OFFSET
1,1
MATHEMATICA
Select[Table[(40^k - 1) / 39, {k, 0, 100}], PrimeQ[#] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, Sep 08 2017
STATUS
approved