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.

A337176 Number of pairs of divisors of n, (d1,d2), such that d1 <= d2 and d1*d2 < sqrt(n).

This page as a plain text file.
%I A337176 #14 Feb 03 2021 23:39:52
%S A337176 0,1,1,1,1,2,1,2,1,2,1,3,1,2,2,2,1,4,1,4,2,3,1,5,1,3,2,4,1,5,1,4,2,3,
%T A337176 2,5,1,3,2,5,1,6,1,4,3,3,1,7,1,4,2,4,1,6,2,5,2,3,1,8,1,3,3,4,2,6,1,5,
%U A337176 2,5,1,9,1,3,3,5,2,6,1,7,2,3,1,10,2,3,3,6,1,9,2,5
%N A337176 Number of pairs of divisors of n, (d1,d2), such that d1 <= d2 and d1*d2 < sqrt(n).
%C A337176 a(n) = 1 iff n is prime or n is the square of a prime (A000430). - _Bernard Schott_, Jan 30 2021
%F A337176 a(n) = Sum_{d1|n, d2|n} (1 - sign(floor(d1*d2/sqrt(n)))).
%e A337176 a(24) = 5; (1,1), (1,2), (1,3), (1,4), (2,2).
%e A337176 a(25) = 1; (1,1).
%e A337176 a(26) = 3; (1,1), (1,2), (2,2).
%e A337176 a(27) = 2; (1,1), (1,3).
%t A337176 Table[Sum[Sum[(1 - Sign[Floor[(i*k)/Sqrt[n]]]) (1 - Ceiling[n/k] + Floor[n/k]) (1 - Ceiling[n/i] + Floor[n/i]), {i, k}], {k, n}], {n, 80}]
%Y A337176 Cf. A337175.
%K A337176 nonn
%O A337176 1,6
%A A337176 _Wesley Ivan Hurt_, Jan 28 2021