|
%I #13 Oct 30 2019 15:25:59
%S 3,11,13,37,59,61,67,83,107,109,131,157,179,181,227,229,251,277,307,
%T 347,349,373,397,419,421,443,467,491,523,541,547,563,587,613,619,659,
%U 661,683,709,733,757,787,827,829,853,877,883,947,971,997,1019
%N Terms of A123239 which are primes in Z(sqrt(2)).
%t MangammalQ[p_] := Block[{k = 3}, While[k > 2, k = Mod[3 k, p]]; k != 2];
%t A168454 = Select[Prime[Range[185]], MangammalQ[#] && MemberQ[{3, 5}, Mod[#, 8]] &] (* _Ray Chandler_, Jul 21 2011 *)
%Y Cf. A003629, A123239, A168367.
%K nonn
%O 1,1
%A _A.K. Devaraj_, Nov 26 2009
%E Extended by _Ray Chandler_, Jul 21 2011
|
