|
Search: id:A133180
|
|
| |
|
| 1, 13, 163, 373, 2191, 3433, 7411, 10363, 24583, 31591, 49981, 61723, 109513, 130351, 180793, 210901, 324013, 370273, 477463, 539041, 759811, 846613, 1042303, 1151983, 1533331, 1679323, 2002321, 2180263, 2785693, 3013051, 3509221
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
A000540(n) is divisable by A000330(n) if and only n is congruent to {1,2,4,5} mod 7 (see A047380) A133180 is union of A134158 and A134159 and A134160 and A134161
|
|
FORMULA
|
a(n) = sum[k^6]/sum[k^2], {k, 1, A047380(n)}]
|
|
MATHEMATICA
|
a = {}; Do[j = Sum[k^6, {k, 1, n}]/Sum[k^2, {k, 1, n}]; If[IntegerQ[j], AppendTo[a, j]], {n, 1, 100}] ; a (*Artur Jasinski*)
|
|
CROSSREFS
|
Cf. A000330, A000540, A119617, A134153, A134154, A134158, A134159, A134160, A134161.
Sequence in context: A084328 A000830 A118673 this_sequence A090134 A087400 A012828
Adjacent sequences: A133177 A133178 A133179 this_sequence A133181 A133182 A133183
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Oct 10 2007
|
|
|
Search completed in 0.002 seconds
|
