|
| |
|
|
A073633
|
|
Numbers n such that n divides floor((3/2)^n) = A002379(n).
|
|
3
|
|
|
|
1, 2, 3, 16, 43, 50, 56, 193, 283, 961, 970, 4958, 9439, 10493, 11375, 18552, 57051, 81602, 617287, 917186, 1525995
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
No more terms through 10^6. -Ryan Propper (rpropper(AT)stanford.edu), May 05 2006
|
|
|
LINKS
|
Table of n, a(n) for n=1..21.
|
|
|
MATHEMATICA
|
t = 1; Do[t = 3t/2; If[ Mod[ Floor[t], n] == 0, Print[n]], {n, 500000}] (from Robert G. Wilson v, Apr 06 2006)
|
|
|
PROG
|
(PARI) a=1; for(n=1, 10^6, a*=3; b=shift(a, -n); if(b%n==0, print1(n, ", "))) - Robert Gerbicz, Aug 23 2006
|
|
|
CROSSREFS
|
Cf. A073632, A073634.
Sequence in context: A034382 A034383 A072684 * A012357 A012701 A012356
Adjacent sequences: A073630 A073631 A073632 * A073634 A073635 A073636
|
|
|
KEYWORD
|
more,nonn
|
|
|
AUTHOR
|
Benoit Cloitre, Aug 29 2002
|
|
|
EXTENSIONS
|
More terms from Michel ten Voorde (seqfan(AT)tenvoorde.org) Jun 20 2003
2 more terms from Ryan Propper (rpropper(AT)stanford.edu), May 05 2006
More terms from Robert Gerbicz, Aug 23 2006
|
|
|
STATUS
|
approved
|
| |
|
|
