A060429 a(n) = 4*prime(n)^2+1.
17, 37, 101, 197, 485, 677, 1157, 1445, 2117, 3365, 3845, 5477, 6725, 7397, 8837, 11237, 13925, 14885, 17957, 20165, 21317, 24965, 27557, 31685, 37637, 40805, 42437, 45797, 47525, 51077, 64517, 68645, 75077, 77285, 88805
Offset: 1
Links
- Harry J. Smith, Table of n, a(n) for n = 1..100
Programs
-
Maple
A060429:=n->4*ithprime(n)^2+1; seq(A060429(n), n=1..100); # Wesley Ivan Hurt, Dec 17 2013
-
Mathematica
Table[4*Prime[n]^2+1, {n, 100}] (* Wesley Ivan Hurt, Dec 17 2013 *) -
PARI
{ n=0; forprime (p=1, 542, write("b060429.txt", n++, " ", 4*p^2 + 1); ) } \\ Harry J. Smith, Jul 05 2009
Formula
a(n) = 4*A001248(n) + 1. - Vincenzo Librandi, Dec 17 2013