|
|
0, 4, 9, 4, 25, 13, 49, 4, 9, 29, 121, 13, 169, 53, 34, 4, 289, 13, 361, 29, 58, 125, 529, 13, 25, 173, 9, 53, 841, 38, 961, 4, 130, 293, 74, 13, 1369, 365, 178, 29, 1681, 62, 1849, 125, 34, 533, 2209, 13, 49, 29, 298, 173, 2809, 13, 146, 53, 370, 845, 3481, 38, 3721
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Table of n, a(n) for n=1..61.
|
|
|
FORMULA
|
Additive with a(p^e) = p^2.
|
|
|
MAPLE
|
A005063 := proc(n)
add(d^2, d= numtheory[factorset](n)) ;
end proc;
seq(A005063(n), n=1..40) ; # R. J. Mathar, Nov 08 2011
|
|
|
PROG
|
(PARI) a(n)=local(fm, t); fm=factor(n); t=0; for(k=1, matsize(fm)[1], t+=fm[k, 1]^2); t [From Franklin T. Adams-Watters, May 03 2009]
|
|
|
CROSSREFS
|
Cf. A067666,A081403,A048261. [From Franklin T. Adams-Watters, May 03 2009]
Sequence in context: A103164 A210966 A178147 * A078615 A197863 A087320
Adjacent sequences: A005060 A005061 A005062 * A005064 A005065 A005066
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
N. J. A. Sloane.
|
|
|
EXTENSIONS
|
More terms from Franklin T. Adams-Watters, May 03 2009
|
|
|
STATUS
|
approved
|
|
