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.

A223133 Number of distinct sums i+j+k with i,j,k >= 0, i*j*k <= n and gcd(i,j,k) <= 1.

This page as a plain text file.
%I A223133 #21 Aug 02 2019 03:42:57
%S A223133 1,4,5,6,8,10,11,14,15,18,19,22,23,26,27,30,31,34,35,38,39,42,43,46,
%T A223133 47,50,51,54,55,58,59,62,63,66,67,70,71,74,75,78,79,82,83,86,87,90,91,
%U A223133 94,95,98,99,102,103,106,107,110,111,114,115,118,119,122,123
%N A223133 Number of distinct sums i+j+k with i,j,k >= 0, i*j*k <= n and gcd(i,j,k) <= 1.
%C A223133 Note that gcd(0,m) = m for any m.
%H A223133 Robert Price, <a href="/A223133/b223133.txt">Table of n, a(n) for n = 0..100</a>
%t A223133 f[n_] := Length[Complement[Union[Flatten[Table[If[i*j*k <= n && GCD[i, j, k] <= 1, {i + j + k}], {i, 0, n}, {j, 0, n}, {k, 0, n}], 2]], {Null}]]; Table[f[n], {n, 0, 100}]
%Y A223133 Cf. A226357, A226359, A222945, A222947.
%K A223133 nonn
%O A223133 0,2
%A A223133 _Robert Price_, Jun 12 2013