|
Search: id:A081402
|
|
| |
|
| 0, 2, 5, 11, 16, 30, 37, 149, 221, 369, 380, 1310, 1323, 2389, 2975, 33695, 33712, 72312, 72331, 269439, 282855, 545109, 545132, 4254514, 4269514, 8463974, 9999248, 35167130, 35167159, 71972737, 71972768, 2152347552, 2161914700
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
a(1)=0 since 1 has no prime factor; n=8:8!=2^7.3^2.5.7, a(8)=128+9+5+7=149
|
|
MATHEMATICA
|
ffi[x_] := Flatten[FactorInteger[x]] lf[x_] := Length[FactorInteger[x]] ba[x_] := Table[Part[ffi[x], 2*w-1], {w, 1, lf[x]}] ep[x_] := Table[Part[ffi[x], 2*w], {w, 1, lf[x]}] supo[x_] := Apply[Plus, ba[x]^ep[x]] Table[supo[w], {w, 1, 25}]
|
|
CROSSREFS
|
Cf. A008475, A000142, A081403, A081404.
Sequence in context: A080156 A082083 A024917 this_sequence A118660 A009770 A132121
Adjacent sequences: A081399 A081400 A081401 this_sequence A081403 A081404 A081405
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Mar 31 2003
|
|
|
Search completed in 0.002 seconds
|
