|
Search: id:A145643
|
|
| |
|
| 1, 2, 3, 1, 15, 6, 105, 6, 35, 60, 385, 90, 5005, 1260, 75075, 315, 1276275, 210, 24249225, 525, 509233725, 11550, 11712375675, 34650, 2342475135, 900900, 2342475135, 3153150, 67931778915, 28028, 2105885146365, 14014, 2573859623335
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
CubefreePart[n_Integer?Positive] := Times @@ Power @@@ ({#[[1]], Mod[ #[[2]], 3]} & /@ FactorInteger[n]); Table[CubefreePart[n!! ], {n, 1, 40}]
|
|
CROSSREFS
|
A004709, A050985, A069705, A145642
Sequence in context: A079174 A102583 A030780 this_sequence A145142 A137738 A009108
Adjacent sequences: A145640 A145641 A145642 this_sequence A145644 A145645 A145646
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasnski (grafix(AT)csl.pl), Oct 15 2008
|
|
|
Search completed in 0.002 seconds
|
