|
| |
| |
|
|
|
1, 1, 2, 1, 6, 1, 6, 1, 30, 1, 6, 1, 210, 1, 6, 1, 30, 1, 42, 1, 330, 1, 6, 1, 2730, 1, 6, 1, 30, 1, 462, 1, 510, 1, 6, 1, 51870, 1, 6, 1, 330, 1, 42, 1, 690, 1, 6, 1, 46410, 1, 66, 1, 30, 1, 798, 1, 870, 1, 6, 1, 930930, 1, 6, 1, 510, 1, 966, 1, 30, 1, 66, 1, 1919190, 1, 6, 1, 30, 1, 42, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| As in A166062, the offset is rather arbitrary.
The sequence contains numbers like 210 which are not in A006954.
One could also consider dividing by the largest prime divisor of A027642 instead of A089026, which yields 1, 1, 2, 1, 6, 1, 6, 1, 6, 1, 6, 1, 210, 1, 2, 1, 30, 1, 42, 1, 30,... as an alternative version.
|
|
|
MAPLE
| A027642 := proc(n) denom(bernoulli(n)) ; end:
A089026 := proc(n) if isprime(n) then n; else 1; end if; end proc:
A166120 := proc(n) A027642(n-1)/A089026(n) ; end proc: seq(A166120(n), n=1..80) ; # R. J. Mathar, Mar 25 2010
|
|
|
CROSSREFS
| Sequence in context: A205959 A088123 A050932 * A007956 A107754 A181569
Adjacent sequences: A166117 A166118 A166119 * A166121 A166122 A166123
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Paul Curtz (bpcrtz(AT)free.fr), Oct 07 2009
|
|
|
EXTENSIONS
| Extended by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Mar 25 2010
|
| |
|
|
