OFFSET
1,2
COMMENTS
See A214030 for an explanation. There seems to be no corresponding linear recurrence.
PROG
(PARI)
{a24(n)=local(t, m=1, s=[n]); if(n<2, 0, while(1,
if(m%2, s=concat(s, 2), s=concat(s, 4));
t=contfracpnqn(concat(s, n));
t=contfrac(n*t[1, 1]/t[2, 1]);
if(t[1]<n^2||t[#t]<n^2, m++, break)); m)};
//To print out the sequence A214034//
for(i=2, 70, print1(a24(i), ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Art DuPre, Jul 21 2012
STATUS
approved