|
%I #12 Apr 02 2020 03:07:22
%S 0,2,4,6,8,10,12,18,20,26,34,42,48,50,52,54,60,66,72,76,80,84,94,96,
%T 102,104,114,122,126,130,140,148,152,156,158,178,190,192,196,202,204,
%U 206,210,228,234,248,258,268,276,294,322,332,348,352,374,376,380,398
%N Records in A146326.
%H Amiram Eldar, <a href="/A146344/b146344.txt">Table of n, a(n) for n = 1..416</a>
%F a(n) = A146326(A146345(n)). - _Amiram Eldar_, Apr 02 2020
%p 146326 := proc(n) if not issqr(n) then numtheory[cfrac]( (1+sqrt(n))/2, 'periodic','quotients') ; nops(%[2]) ; else 0 ; fi; end: read("transforms") ; a26 := [seq(A146326(n),n=1..1000)] ; RECORDS(a26)[1] ; # _R. J. Mathar_, Sep 06 2009
%t f[n_] := Length @ ContinuedFraction[(1 + Sqrt[n])/2][[-1]]; fmax = -1; seq = {}; Do[f1 = f[n]; If[f1 > fmax, fmax = f1; AppendTo[seq, f1]], {n, 1, 10^4}]; seq (* _Amiram Eldar_, Apr 02 2020 *)
%Y Cf. A000290, A078370, A146326-A146345, A146348-A146360, A146363.
%K nonn
%O 1,2
%A _Artur Jasinski_, Oct 30 2008
%E 42 inserted by _R. J. Mathar_, Sep 06 2009
%E a(1) inserted and more terms added by _Amiram Eldar_, Apr 02 2020
|
