OFFSET
1,1
COMMENTS
The first six terms agree with A055496.
MATHEMATICA
fQ[n_]:=PowerMod[15, n, n]==0;
Prime[Select[Range[1000000], fQ]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Yancheng Lu, May 20 2020
STATUS
approved