OFFSET
1,1
MATHEMATICA
MangammalQ[p_] := Block[{k = 3}, While[k > 2, k = Mod[3 k, p]]; k != 2];
A168483 = Select[Prime[Range[215]], MangammalQ[#] && MemberQ[{2, 3}, Mod[#, 5]] &] (* Ray Chandler, Jul 21 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
A.K. Devaraj, Nov 26 2009
EXTENSIONS
Corrected and extended by Ray Chandler, Jul 21 2011
STATUS
approved