OFFSET
1,2
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
PROG
(PARI) listsq(nn) = {my(va = vector(nn), lastsq, vs = vector(nn)); va[1] = 1; lastsq = 1; vs[1] = lastsq; for (n=2, nn, my(k = ceil(sqrt(sqrtint(lastsq)))); while (#select(x->(x==(k^2-sqrtint(lastsq))), va), k++); va[n] = k^2-sqrtint(lastsq); lastsq = k^2; vs[n] = sqrtint(lastsq); ); vs; } \\ Michel Marcus, Oct 13 2020
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Ivan Neretin, Jan 21 2019
STATUS
approved