|
|
A081404
|
|
a(n) = A008475(prime(n)-1).
|
|
4
|
|
|
0, 2, 4, 5, 7, 7, 16, 11, 13, 11, 10, 13, 13, 12, 25, 17, 31, 12, 16, 14, 17, 18, 43, 19, 35, 29, 22, 55, 31, 23, 18, 20, 25, 28, 41, 30, 20, 83, 85, 47, 91, 18, 26, 67, 53, 22, 17, 42, 115, 26, 37, 26, 24, 127, 256, 133, 71, 34, 30, 20, 52, 77, 28, 38, 24, 83, 21, 26, 175, 36
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
a(1) = 0 since 1 has no prime factor.
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|