OFFSET
1,1
COMMENTS
The variable s need not necessarily be the largest integer such that a(n) = t^s, t = some positive integer. (For example, a(3) = 4 because 4 is a first power, like 3.)
If a(1) had equaled 1 instead, then the sequence would have been just the sequence of positive integers, obviously.
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
EXAMPLE
a(9) = 36 because 9 = 3^2, and because 36 is the smallest square > a(8) = 27.
MATHEMATICA
FoldList[Ceiling[(#1 + 1)^(1/(s = GCD @@ FactorInteger[#2][[All, 2]]))]^s &, 2, Range[2, 58]] (* Ivan Neretin, Apr 26 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Sep 14 2009
EXTENSIONS
Edited by Ray Chandler, Mar 14 2010
STATUS
approved