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

Author

N. J. A. Sloane, Sep 27 2003

Keywords

• nonn
• more

Crossrefs

Cf. A087666, A087663.

Programs

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}

Formula

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

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