|
| |
|
|
A113849
|
|
Numbers whose prime factors are raised to the fourth power.
|
|
1
| |
|
|
16, 81, 625, 1296, 2401, 10000, 14641, 28561, 38416, 50625, 83521, 130321, 194481, 234256, 279841, 456976, 707281, 810000, 923521, 1185921, 1336336, 1500625, 1874161, 2085136, 2313441, 2825761, 3111696, 3418801, 4477456, 4879681
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 4,1
|
|
|
EXAMPLE
| 1296 = 16*81 = 2^4*3^4 so the prime factors of 1296, 2 and 3, are raised to the fourth power.
|
|
|
MATHEMATICA
| Select[ Range@50^4, Union[Last /@ FactorInteger@# ] == {4} &] (from Robert G. Wilson v (rgwv(at)rgwv.com), Jan 26 2006)
|
|
|
PROG
| (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 A000583.
Sequence in context: A134606 A108941 A153157 * A046453 A030514 A056571
Adjacent sequences: A113846 A113847 A113848 * A113850 A113851 A113852
|
|
|
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
|
| |
|
|
