A086336 Records in A087666.

0, 3, 4, 7, 9, 16, 20, 21, 24, 26, 29, 32, 38, 39, 43, 45, 46, 48, 52, 60, 65

Offset

1,2

Links

Table of n, a(n) for n=1..21.

Formula

a(n) = A087666(A087663(n)).

Mathematica

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}

Crossrefs

Cf. A087666, A087663.

Sequence in context: A301767 A169898 A281734 * A237258 A108796 A364684

Adjacent sequences: A086333 A086334 A086335 * A086337 A086338 A086339

Keyword

nonn,more

Author

N. J. A. Sloane, Sep 27 2003

Extensions

More terms from Robert G. Wilson v, Oct 10 2003

a(11) from N. J. A. Sloane, Oct 16 2003

a(12)-a(16) from Robert G. Wilson v, Mar 11 2004

a(17)-a(20) from Max Alekseyev, Jul 29 2011

a(21) from Chai Wah Wu, Mar 04 2021

Status

approved