cp's OEIS Frontend

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.

A178653 Numbers k that 4^k + 13^2 is prime.

This page as a plain text file.
%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