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 A178966 #9 Aug 31 2017 11:26:20
%S A178966 3,68491,1472837,20933977,115763405909,860612330076805920786264707,
%T A178966 295312333859267885313149356219,
%U A178966 3030645565448009172324576658633624992466799,1438089684181622246462815859549895702132195129054882453928357949021844283495791173
%N A178966 Primes of the form (2n-1)^(2n-1) mod 2^(2n-1).
%C A178966 Primes for n's: 2, 10, 11, 13, 19, 46, 50, 72, 139, 162, 344, 739, 1757, 3439, (10000)..., .
%t A178966 f[n_] := Block[{a = PowerMod[2 n - 1, 2 n - 1, 2^(2 n - 1)]}, If[ PrimeQ@ a, a, 0]]; k = 1; lst = {}; While[k < 100, a = f@ k; If[a != 0, AppendTo[lst, a]]; k++]; lst
%t A178966 pfQ[n_]:=Module[{c=2n-1},PowerMod[c,c,2^c]]; Select[Table[pfQ[n],{n,200}],PrimeQ] (* _Harvey P. Dale_, Aug 31 2017 *)
%Y A178966 Cf. A000040, A000079, A000312, A178537.
%K A178966 nonn
%O A178966 1,1
%A A178966 _Juri-Stepan Gerasimov_, Jan 01 2011