OFFSET
1,1
COMMENTS
EXAMPLE
For p=4357=a(1), p=14356=2^2*3^2*11^2. For p=12101, p=1=12100=2^2*5^2*11^2.
MATHEMATICA
f[n_]:=FactorInteger[n][[1, 2]]==2&&Length[FactorInteger[n]]==3&&FactorInteger[n][[2, 2]]==2&&FactorInteger[n][[3, 2]]==2; lst={}; Do[p=Prime[n]; If[f[p-1], AppendTo[lst, p]], {n, 2, 9!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Aug 14 2009
EXTENSIONS
Edited by R. J. Mathar, Aug 18 2009
STATUS
approved