OFFSET
1,1
COMMENTS
Next term, if it exists, exceeds 6600000. - Sam Handler (sam_5_5_5_0(AT)yahoo.com), Nov 14 2004
MATHEMATICA
Do[ If[ Length[ Last[ ContinuedFraction[ Sqrt[n]]]]^3 == n, Print[n]], {n, 1, 10^5} ]
PROG
(PARI) f(n) = {if (issquare(n), 0, my(p=100); while (! isokq(n, p), p+=100); localprec(p); my(cf = contfrac(sqrt(n))); for (k=2, #cf, if (cf[k] == 2*cf[1], return (k-1))); ); } \\ A003285
isok(m) = f(m)^3 == m; \\ Michel Marcus, Jul 12 2021
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Naohiro Nomoto, Nov 09 2001
STATUS
approved