This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A168325 #13 Oct 30 2019 15:21:21
%S A168325 3,11,59,67,83,103,107,131,151,179,227,251,271,307,347,367,419,443,
%T A168325 467,491,523,547,563,587,619,659,683,787,827,883,947,967,971,991,1019,
%U A168325 1051,1091,1163,1171,1187,1223,1259,1283,1303,1307,1427,1451,1471
%N A168325 Terms of A123239 which are also primes in Z(i).
%t A168325 MangammalQ[p_] := Block[{k = 3}, While[k > 2, k = Mod[3 k, p]]; k != 2];
%t A168325 A168325 = Select[Prime[Range[235]], MangammalQ[#] && Mod[#, 4] == 3 &] (* _Ray Chandler_, Jul 21 2011 *)
%Y A168325 Cf. A002145, A123239.
%K A168325 nonn
%O A168325 1,1
%A A168325 _A.K. Devaraj_, Nov 23 2009
%E A168325 Extended by _Ray Chandler_, Jul 21 2011