|
Search: id:A113852
|
|
|
| A113852 |
|
Numbers whose prime factors are raised to the seventh power. |
|
+0
1
|
|
| 128, 2187, 78125, 279936, 823543, 10000000, 19487171, 62748517, 105413504, 170859375, 410338673, 893871739, 1801088541, 2494357888, 3404825447, 8031810176, 17249876309, 21870000000, 27512614111, 42618442977, 52523350144
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
Select[ Range@34^7, Union[Last /@ FactorInteger@# ] == {7} &] (* Robert G. Wilson v *)
|
|
PROGRAM
|
(PARI) allpwrfact(n, p) = \All prime factors are raised to the power p { local(x, j, ln, y, flag); for(x=4, n, y=Vec(factor(x)); ln = length(y[1]); flag=0; for(j=1, ln, if(y[2][j]==p, flag++); ); if(flag==ln, print1(x", ")); ) }
|
|
CROSSREFS
|
Proper subset of A001015.
Sequence in context: A123253 A001015 A050754 this_sequence A046456 A092759 A056574
Adjacent sequences: A113849 A113850 A113851 this_sequence A113853 A113854 A113855
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Cino Hilliard (hillcino368(AT)gmail.com), Jan 25 2006
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Jan 26 2006
|
|
|
Search completed in 0.002 seconds
|
