login
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).
0
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
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
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 28 2008
STATUS
approved