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 A168483 #13 Oct 30 2019 15:27:40
%S A168483 2,3,13,37,67,73,83,103,107,157,193,227,277,307,313,347,367,373,397,
%T A168483 433,443,467,523,547,563,577,587,613,673,683,733,757,787,827,853,877,
%U A168483 883,947,967,997,1093,1117,1163,1187,1213,1223,1237,1283,1297
%N A168483 Terms of A123239 which are primes in Z(sqrt(5)).
%t A168483 MangammalQ[p_] := Block[{k = 3}, While[k > 2, k = Mod[3 k, p]]; k != 2];
%t A168483 A168483 = Select[Prime[Range[215]], MangammalQ[#] && MemberQ[{2, 3}, Mod[#, 5]] &] (* _Ray Chandler_, Jul 21 2011 *)
%Y A168483 Cf. A003631, A123239, A168367.
%K A168483 nonn
%O A168483 1,1
%A A168483 _A.K. Devaraj_, Nov 26 2009
%E A168483 Corrected and extended by _Ray Chandler_, Jul 21 2011