login
A071326
Sum of squares > 1 dividing n.
2
0, 0, 0, 4, 0, 0, 0, 4, 9, 0, 0, 4, 0, 0, 0, 20, 0, 9, 0, 4, 0, 0, 0, 4, 25, 0, 9, 4, 0, 0, 0, 20, 0, 0, 0, 49, 0, 0, 0, 4, 0, 0, 0, 4, 9, 0, 0, 20, 49, 25, 0, 4, 0, 9, 0, 4, 0, 0, 0, 4, 0, 0, 9, 84, 0, 0, 0, 4, 0, 0, 0, 49, 0, 0, 25, 4, 0, 0, 0, 20, 90, 0, 0, 4, 0, 0, 0, 4, 0, 9, 0, 4, 0, 0, 0, 20, 0, 49, 9, 129
OFFSET
1,4
LINKS
FORMULA
a(n) = A035316(n)-1.
Sum_{d|n, d>1} A010052(d). - Antti Karttunen, Nov 17 2017
MATHEMATICA
Array[DivisorSum[#, # &, IntegerQ@ Sqrt@ # &] - 1 &, 100] (* Michael De Vlieger, Nov 17 2017 *)
PROG
(PARI) A071326(n) = sumdiv(n, d, (d>1)*issquare(d)*d); \\ Antti Karttunen, Nov 17 2017
CROSSREFS
One less than A035316.
Sequence in context: A272618 A265397 A071327 * A284103 A151674 A367631
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 18 2002
EXTENSIONS
More terms from Antti Karttunen, Nov 17 2017
STATUS
approved