|
%I #13 Oct 30 2019 15:26:30
%S 11,59,83,107,131,179,227,251,347,419,443,467,491,563,587,659,683,827,
%T 947,971,1019,1091,1163,1187,1259,1283,1307,1427,1451,1499,1523,1571,
%U 1619,1667,1787,1811,1907,1931,1979,2003,2027,2099,2243,2267,2339
%N Terms of A123239 which are prime in Z(i), Z(rho) and Z(sqrt(2)).
%t MangammalQ[p_] := Block[{k = 3}, While[k > 2, k = Mod[3 k, p]]; k != 2];
%t A168539 = Select[Prime[Range[350]], MangammalQ[#] && Mod[#, 24] == 11 &] (* _Ray Chandler_, Jul 21 2011 *)
%Y Cf. A002145, A003627, A003629, A123239, A107007, A168454.
%K nonn
%O 1,1
%A _A.K. Devaraj_, Nov 29 2009
%E Corrected and extended by _Ray Chandler_, Jul 21 2011
|
