|
| |
| |
|
|
|
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; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
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: A158911 A086772 A169898 * A108796 A048849 A076211
Adjacent sequences: A086333 A086334 A086335 * A086337 A086338 A086339
|
|
|
KEYWORD
| nonn,more
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Sep 27 2003
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 10 2003
a(11) from N. J. A. Sloane (njas(AT)research.att.com), Oct 16 2003
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 11 2004
a(17)-a(20) from Max Alekseyev (maxale(AT)gmail.com), Jul 29 2011
|
| |
|
|
