



0, 3, 4, 7, 9, 16, 20, 21, 24, 26, 29, 32, 38, 39, 43, 45, 46, 48, 52, 60
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

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


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 A048849
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
More terms from Robert G. Wilson v, Mar 11 2004
a(17)a(20) from Max Alekseyev, Jul 29 2011


STATUS

approved



