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 A178653 #9 Aug 02 2015 17:07:45 %S A178653 1,3,5,7,9,13,15,31,33,47,65,99,103,147,197,203,257,399,411,471,497, %T A178653 979,1189,2851,3221,4689,5027,7131,7545,9049,9849 %N A178653 Numbers k that 4^k + 13^2 is prime. %C A178653 See A178652. %e A178653 4^1 + 13^2 = 173 = prime(40), 1 is first term. %e A178653 4^3 + 13^2 = 233 = prime(51), 3 is 2nd term. %e A178653 4^5 + 13^2 = 1193 = prime(196), 5 is 3rd term. %e A178653 4^147 + 13^2 = 318286...15753 (89 digits), 147 is 14th term. %e A178653 4^197 + 13^2 = 403...9753 (119 digits), 197 is 15th term. %t A178653 fQ[n_] := PrimeQ[(2^k)^2 + 169]; k = 1; lst = {}; While[k < 10^4, If[ fQ@k, AppendTo[lst, k]; Print@k]; k += 2]; lst (* _Robert G. Wilson v_, Jul 31 2010 *) %o A178653 (PARI) forstep(k=1,999,2,if(ispseudoprime(4^n+169),print1(n", "))) \\ _Charles R Greathouse IV_, Aug 27 2013 %Y A178653 Cf. A176969, A176978, A177833, A178652. %K A178653 nonn %O A178653 1,2 %A A178653 Eva-Maria Zschorn (e-m.zschorn(AT)zaschendorf.km3.de), Jun 01 2010 %E A178653 a(16)-a(31) from _Robert G. Wilson v_, Jul 31 2010 %E A178653 New name from _Charles R Greathouse IV_, Aug 27 2013