A168539 - OEIS

%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