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.

A100435 Number of distinct products i*j*k for 1 <= i <= j < k <= n.

This page as a plain text file.
%I A100435 #9 Oct 16 2023 23:30:12
%S A100435 0,1,4,9,18,26,44,57,76,93,135,153,212,245,282,317,414,452,575,624,
%T A100435 690,759,935,986,1103,1196,1297,1378,1645,1716,2024,2136,2279,2427,
%U A100435 2597,2687,3110,3292,3483,3606,4123,4262,4837,5026,5227,5485,6168,6318,6725
%N A100435 Number of distinct products i*j*k for 1 <= i <= j < k <= n.
%p A100435 f:=proc(n) local i,j,k,t1; t1:={}; for i from 1 to n-1 do for j from i to n-1 do for k from j+1 to n do t1:={op(t1),i*j*k}; od: od: od: t1:=convert(t1,list); nops(t1); end;
%t A100435 f[n_] := Length[ Union[ Flatten[ Table[ i*j*k, {i, n}, {j, i, n}, {k, j + 1, n}] ]]]; Table[ f[n], {n, 49}] (* _Robert G. Wilson v_, Dec 14 2004 *)
%o A100435 (Python)
%o A100435 def A100435(n): return len({i*j*k for i in range(1,n+1) for j in range(1,i) for k in range(1,j+1)}) # _Chai Wah Wu_, Oct 16 2023
%Y A100435 Cf. A027428, A027425, A027430, A100436.
%K A100435 nonn
%O A100435 1,3
%A A100435 _N. J. A. Sloane_, Nov 21 2004
%E A100435 More terms from _Robert G. Wilson v_, Dec 14 2004