|
Search: id:A133482
|
|
|
| A133482 |
|
a(p_1^e_1*p_2^e_2*.....*p_m^e_m) = (p_1^p_1)^e_1*(p_2^p^2)^e_2*.....*(p_m^p_m)^e_m where p_1^e_1*p_2^e_2*.....*p_m^e_m is the prime decomposition of n. |
|
+0
1
|
|
| 1, 4, 27, 16, 3125, 108, 823543, 64, 729, 12500, 285311670611, 432, 302875106592253, 3294172, 84375, 256, 827240261886336764177, 2916, 1978419655660313589123979, 50000, 22235661, 1141246682444, 20880467999847912034355032910567, 1728, 9765625, 1211500426369012, 19683, 13176688, 2567686153161211134561828214731016126483469, 337500
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
a(6)=a(2^1*3^1)=2^2^1*3^3^1=4*27=108
|
|
MAPLE
|
A133482 := proc(n) local ifs, f ; if n = 1 then 1; else ifs := ifactors(n)[2] ; mul( (op(1, f)^op(1, f))^op(2, f), f=ifs) ; fi ; end: seq(A133482(n), n=1..30) ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Nov 30 2007
|
|
CROSSREFS
|
Sequence in context: A136511 A108138 A119361 this_sequence A108139 A093845 A085702
Adjacent sequences: A133479 A133480 A133481 this_sequence A133483 A133484 A133485
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Masahiko Shin (nin-ts5406(AT)w9.dion.ne.jp), Nov 29 2007
|
|
EXTENSIONS
|
Corrected and extended by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Nov 30 2007
|
|
|
Search completed in 0.002 seconds
|
