|
Search: id:A086336
|
|
| |
|
| 0, 3, 4, 7, 9, 16, 20, 21, 24, 26, 29, 32, 38, 39, 43, 45
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
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.
Adjacent sequences: A086333 A086334 A086335 this_sequence A086337 A086338 A086339
Sequence in context: A069183 A119907 A086772 this_sequence A108796 A048849 A076211
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
njas, Sep 27 2003
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 10 2003
a(11) from njas, Oct 16 2003
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 11 2004
|
|
|
Search completed in 0.002 seconds
|
