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