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