A168539 Terms of A123239 which are prime in Z(i), Z(rho) and Z(sqrt(2)).

11, 59, 83, 107, 131, 179, 227, 251, 347, 419, 443, 467, 491, 563, 587, 659, 683, 827, 947, 971, 1019, 1091, 1163, 1187, 1259, 1283, 1307, 1427, 1451, 1499, 1523, 1571, 1619, 1667, 1787, 1811, 1907, 1931, 1979, 2003, 2027, 2099, 2243, 2267, 2339

Offset: 1

Author

A.K. Devaraj, Nov 29 2009

Keywords

• nonn

Crossrefs

Cf. A002145, A003627, A003629, A123239, A107007, A168454.

Programs

Mathematica

MangammalQ[p_] := Block[{k = 3}, While[k > 2, k = Mod[3 k, p]]; k != 2];
A168539 = Select[Prime[Range[350]], MangammalQ[#] && Mod[#, 24] == 11 &] (* Ray Chandler, Jul 21 2011 *)

Extensions

Corrected and extended by Ray Chandler, Jul 21 2011