A168325 Terms of A123239 which are also primes in Z(i).

3, 11, 59, 67, 83, 103, 107, 131, 151, 179, 227, 251, 271, 307, 347, 367, 419, 443, 467, 491, 523, 547, 563, 587, 619, 659, 683, 787, 827, 883, 947, 967, 971, 991, 1019, 1051, 1091, 1163, 1171, 1187, 1223, 1259, 1283, 1303, 1307, 1427, 1451, 1471

Offset: 1

Author

A.K. Devaraj, Nov 23 2009

Keywords

• nonn

Crossrefs

Cf. A002145, A123239.

Programs

Mathematica

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

Extensions

Extended by Ray Chandler, Jul 21 2011