|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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?
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|