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