A152186 a(1)=2; then: if n is even, a(n)=next_square_after a(n - 1), else a(n)=next_prime_after a(n - 1).

2, 4, 5, 9, 11, 16, 17, 25, 29, 36, 37, 49, 53, 64, 67, 81, 83, 100, 101, 121, 127, 144, 149, 169, 173, 196, 197, 225, 227, 256, 257, 289, 293, 324, 331, 361, 367, 400, 401, 441, 443, 484, 487, 529, 541, 576, 577, 625, 631, 676, 677, 729, 733, 784, 787, 841, 853

Offset

1,1

Links

Table of n, a(n) for n=1..57.

Mathematica

a[1] = 2; a[n_] := If[EvenQ[n], Ceiling[Sqrt[a[n - 1]]]^2, NextPrime[a[n - 1]]] Table[a[n], {n, 100}]

Crossrefs

Terms 9, 11, 16, 17, 25, 29 are in A035552: pure occasion or what?

Sequence in context: A192615 A258652 A065514 * A085765 A211521 A039871

Adjacent sequences: A152183 A152184 A152185 * A152187 A152188 A152189

Keyword

nonn

Author

Zak Seidov, Nov 28 2008

Status

approved