A081445 Smallest squares such that partial sums of the sequence plus 11 are primes.

36, 36, 144, 36, 324, 324, 36, 36, 36, 144, 144, 144, 36, 36, 36, 900, 900, 900, 324, 900, 36, 324, 36, 324, 576, 324, 144, 36, 324, 36, 576, 144, 2304, 576, 36, 144, 900, 324, 144, 576, 324, 900, 36, 144, 900, 2916, 144, 2916, 36, 576, 900, 1764, 324, 144

Offset

1,1

Comments

Members are of the form (6m)^2, m integer (A081446).

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

nxt[{t_, n_}]:=Module[{k = 1}, While[! PrimeQ[t + k^2 + 11], k++]; {t + k^2, k^2}]; Transpose[NestList[nxt, {36, 36}, 60]][[2]] (* Harvey P. Dale, Apr 13 2016 *)

Prog

(PARI) t=11; for(n=2, 100, for(k=1, 10^8, if(isprime(k^2+t), print1(k^2", "); t=t+k^2; break)))

Crossrefs

Cf. A081447, A081449.

Sequence in context: A217613 A247898 A124511 * A081449 A284568 A165857

Adjacent sequences: A081442 A081443 A081444 * A081446 A081447 A081448

Keyword

nonn

Author

Ralf Stephan, Mar 21 2003

Status

approved