OFFSET
1,2
FORMULA
PROG
(PARI) v=[1]; for(k=1, 6, m=1; while(issquare(contfracpnqn(concat(v, [m]))[1, 1])==0, m++); v=concat(v, [m])); a(n)=if(n<2, 1, v[n]);
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 15 2013
EXTENSIONS
a(8)-a(11) from Max Alekseyev, Mar 18 2023
STATUS
approved