A264598 Row sums of triangle in A264597.
2, 6, 8, 14, 14, 24, 16, 40, 26, 36, 36, 62, 40, 62, 48, 78, 52, 106
Offset: 3
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.
For n=5, the a(5) = 4 Zagier-reduced forms of discriminant 21 are x^2 + 5*x*y + y^2, 5*x^2 + 9*x*y + 3*y^2, 3*x^2 + 9*x*y + 5*y^2, and 5*x^2 + 11*x*y + 5*y^2.
# Maple code for the formula given by Kleban et al., which is almost certainly the same sequence as this (but until that is proved, the program should not be used to extend this sequence, A264598 or A264599). - N. J. A. Sloane, Nov 19 2015 with(numtheory); # return number of divisors of m less than b dbm:=proc(b,m) local i,t1,t2; t1:=divisors(m); t2:=0; for i from 1 to nops(t1) do if t1[i]add(dbm(b,b*n-b^2-1), b=1..n-1); [seq(f(n),n=1..100)];
Table[Length[ Flatten[ Select[ Table[{a, k}, {k, Select[Range[Ceiling[-Sqrt[n]], Floor[Sqrt[n]]], Mod[# - n, 2] == 0 &]}, {a, Select[Divisors[(n - k^2)/4], # > (Sqrt[n] - k)/2 &]}], UnsameQ[#, {}] &], 1]], {n, Map[#^2 - 4 &, Range[3, 60]]}]
d(n, k) = #select(x->(xMichel Marcus, Apr 18 2023; based on Technau Lemma 3
Comments