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.

A356770 a(n) is the number of equations in the set {x+2y=n, 2x+3y=n, ..., k*x+(k+1)*y=n, ..., n*x+(n+1)*y=n} which admit at least one nonnegative integer solution.

This page as a plain text file.
%I A356770 #32 Oct 01 2022 01:16:57
%S A356770 1,2,3,4,4,5,5,6,6,7,6,8,7,8,8,9,8,10,8,10,10,10,9,12,10,11,11,12,10,
%T A356770 13,11,13,12,12,12,15,12,13,13,15,12,15,13,15,15,14,13,17,14,16,15,16,
%U A356770 14,17,15,17,16,16,15,20,15,16,17,18,17,19,16,18,17,19,16,21,17,18,19,19
%N A356770 a(n) is the number of equations in the set {x+2y=n, 2x+3y=n, ..., k*x+(k+1)*y=n, ..., n*x+(n+1)*y=n} which admit at least one nonnegative integer solution.
%C A356770 a(n) = ceiling(2*(sqrt(n)-1)) + ceiling(A000005(n)/2).
%e A356770 a(5) = 4. Consider the equations: x+2y=5, 2x+3y=5, 3x+4y=5, 4x+5y=5, 5x+6y=5. Only four of them admit at least one nonnegative integer solution, since 3x+4y=5 has no nonnegative integer solution.
%t A356770 b[m_] := m;
%t A356770 f[n_] := Table[Dimensions[Solve[b[k]*x + b[k + 1]*y == n, {x, y}, NonNegativeIntegers]][[1]], {k, 1, n}];
%t A356770 Flatten[Table[Dimensions[DeleteCases[f[k], 0]], {k, 1, 100}]]
%Y A356770 Cf. A000005.
%K A356770 nonn
%O A356770 1,2
%A A356770 _Luca Onnis_, Aug 27 2022