A086336 - OEIS

%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