cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A071865 Smallest k such that the simple continued fraction for Sum(d|k, 1/d) contains exactly n elements.

This page as a plain text file.
%I A071865 #17 Jan 21 2015 13:03:26
%S A071865 1,2,4,14,22,26,75,195,330,324,935,1598,3422,3663,10191,14066,12099,
%T A071865 53661,121555,182169,235509,307615,633945,2097595,2072198,2643298,
%U A071865 6544282,8675343,13670722,17573794,85112326,77295778,235873898,362150458,544042486,1457255474
%N A071865 Smallest k such that the simple continued fraction for Sum(d|k, 1/d) contains exactly n elements.
%e A071865 sum(d|195, 1/d) = 112/65 and 112/65 continued fraction is [1, 1, 2, 1, 1, 1, 1, 3] which contains 8 elements. There is no smaller number than 195 with this property hence a(8)=195.
%t A071865 a = Table[0, {50}]; Do[b = Length[ ContinuedFraction[ Apply[ Plus, 1/Divisors[n]]]]; If[ a[[b]] == 0, a[[b]] = n], {n, 1, 10^7}]
%o A071865 (PARI) for(n=1,21,s=1; while(length(contfrac(sumdiv(s,d,1/d)))<n,s++); print1(s,","))
%Y A071865 Cf. A071862.
%K A071865 easy,nonn
%O A071865 1,2
%A A071865 _Benoit Cloitre_, Jun 09 2002
%E A071865 More terms from _Robert G. Wilson v_, Jun 11 2002
%E A071865 a(29)-a(36) from _Michel Marcus_, Sep 17 2012