|
Search: id:A062838
|
|
|
| A062838 |
|
Cubes of square-free numbers. |
|
+0
2
|
|
| 1, 8, 27, 125, 216, 343, 1000, 1331, 2197, 2744, 3375, 4913, 6859, 9261, 10648, 12167, 17576, 24389, 27000, 29791, 35937, 39304, 42875, 50653, 54872, 59319, 68921, 74088, 79507, 97336, 103823, 132651, 148877, 166375, 185193, 195112, 205379
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
lst={}; Do[a=0; Do[If[FactorInteger[m][[n, 2]]!=3, a=1], {n, Length[FactorInteger[m]]}]; If[a==0, AppendTo[lst, m]], {m, 10^6}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 15 2008]
|
|
PROGRAM
|
(PARI) for(n=1, 35, if(issquarefree(n), print(n*n^2)))
|
|
CROSSREFS
|
Sequence in context: A030160 A030162 A153147 this_sequence A046452 A030078 A051751
Adjacent sequences: A062835 A062836 A062837 this_sequence A062839 A062840 A062841
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Jason Earls (zevi_35711(AT)yahoo.com), Jul 21 2001
|
|
EXTENSIONS
|
More terms from Dean Hickerson (dean.hickerson(AT)yahoo.com), Jul 24, 2001
Added more terms and Mathematica program. Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 15 2008
|
|
|
Search completed in 0.002 seconds
|
