|
%I #19 Mar 04 2021 14:56:08
%S 0,3,4,7,9,16,20,21,24,26,29,32,38,39,43,45,46,48,52,60,65
%N Records in A087666.
%F a(n) = A087666(A087663(n)).
%t f[n_] := Block[{c = 1, k = n/3}, If[ IntegerQ[k], 0, While[tn = Floor[k]; tf = k - tn; tn = Mod[tn, 3^500]; k = tn(tn + tf); !IntegerQ[k], c++ ]; c++ ]]; f /@ {A087663}
%Y Cf. A087666, A087663.
%K nonn,more
%O 1,2
%A _N. J. A. Sloane_, Sep 27 2003
%E More terms from _Robert G. Wilson v_, Oct 10 2003
%E a(11) from _N. J. A. Sloane_, Oct 16 2003
%E a(12)-a(16) from _Robert G. Wilson v_, Mar 11 2004
%E a(17)-a(20) from _Max Alekseyev_, Jul 29 2011
%E a(21) from _Chai Wah Wu_, Mar 04 2021
|
