login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A069293 Sum of square divisors of n <= sqrt(n). 3
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 1, 1, 1, 5, 10, 1, 1, 5, 1, 1, 1, 5, 1, 10, 1, 5, 1, 1, 1, 5, 1, 1, 10, 5, 1, 1, 1, 5, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,16

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..16384

Index entries for sequences related to sums of divisors

MATHEMATICA

Table[DivisorSum[n, # &, And[IntegerQ@ Sqrt@ #, # <= Sqrt@ n] &], {n, 105}] (* Michael De Vlieger, Nov 20 2017 *)

PROG

(PARI) A069293(n) = sumdiv(n, d, (issquare(d)&&((d^2)<=n))*d); \\ Antti Karttunen, Nov 20 2017

CROSSREFS

Cf. A000188, A035316, A046951, A069290, A069291, A069292.

Sequence in context: A051008 A304042 A109768 * A293235 A066803 A089608

Adjacent sequences:  A069290 A069291 A069292 * A069294 A069295 A069296

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller, Mar 14 2002

EXTENSIONS

More terms from Antti Karttunen, Nov 20 2017

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 19 17:16 EDT 2019. Contains 324222 sequences. (Running on oeis4.)