cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A334019 Sum of unitary divisors of n that are smaller than sqrt(n).

This page as a plain text file.
%I A334019 #10 Apr 13 2020 07:19:10
%S A334019 0,1,1,1,1,3,1,1,1,3,1,4,1,3,4,1,1,3,1,5,4,3,1,4,1,3,1,5,1,11,1,1,4,3,
%T A334019 6,5,1,3,4,6,1,12,1,5,6,3,1,4,1,3,4,5,1,3,6,8,4,3,1,13,1,3,8,1,6,12,1,
%U A334019 5,4,15,1,9,1,3,4,5,8,12,1,6,1,3,1,15,6
%N A334019 Sum of unitary divisors of n that are smaller than sqrt(n).
%H A334019 Jinyuan Wang, <a href="/A334019/b334019.txt">Table of n, a(n) for n = 1..10000</a>
%F A334019 a(n) = A070039(n) for squarefree numbers (A005117) or squares of primes (A001248).
%e A334019 The unitary divisors of 12 are {1, 3, 4, 12}, 1 and 3 are smaller than sqrt(12) and their sum is 1 + 3 = 4, hence a(12) = 4.
%t A334019 a[n_] := DivisorSum[n, # &, #^2 < n && CoprimeQ[#, n/#] &]; Array[a, 100]
%o A334019 (PARI) a(n) = sumdiv(n, d, if(gcd(d, n/d)==1 && d<sqrt(n), d)); \\ _Jinyuan Wang_, Apr 12 2020
%Y A334019 Cf. A034448, A070039, A077610, A334023.
%K A334019 nonn
%O A334019 1,6
%A A334019 _Amiram Eldar_, Apr 12 2020