%I #13 Oct 30 2019 15:21:21
%S 3,11,59,67,83,103,107,131,151,179,227,251,271,307,347,367,419,443,
%T 467,491,523,547,563,587,619,659,683,787,827,883,947,967,971,991,1019,
%U 1051,1091,1163,1171,1187,1223,1259,1283,1303,1307,1427,1451,1471
%N Terms of A123239 which are also primes in Z(i).
%t MangammalQ[p_] := Block[{k = 3}, While[k > 2, k = Mod[3 k, p]]; k != 2];
%t A168325 = Select[Prime[Range[235]], MangammalQ[#] && Mod[#, 4] == 3 &] (* _Ray Chandler_, Jul 21 2011 *)
%Y Cf. A002145, A123239.
%K nonn
%O 1,1
%A _A.K. Devaraj_, Nov 23 2009
%E Extended by _Ray Chandler_, Jul 21 2011