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.

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

This page as a plain text file.
%I A100436 #9 Oct 16 2023 23:30:17
%S A100436 0,1,4,10,20,27,46,61,84,101,147,163,226,256,292,331,434,472,601,655,
%T A100436 719,785,968,1016,1143,1233,1346,1433,1713,1778,2099,2219,2363,2509,
%U A100436 2677,2763,3202,3381,3573,3690,4223,4360,4951,5149,5347,5598,6298,6449
%N A100436 Number of distinct products i*j*k for 1 <= i < j <= k <= n.
%p A100436 f:=proc(n) local i,j,k,t1; t1:={}; for i from 1 to n-1 do for j from i+1 to n do for k from j to n do t1:={op(t1),i*j*k}; od: od: od: t1:=convert(t1,list); nops(t1); end;
%t A100436 f[n_] := Length[ Union[ Flatten[ Table[ i*j*k, {i, n}, {j, i + 1, n}, {k, j, n}]]]]; Table[ f[n], {n, 48}] (* _Robert G. Wilson v_, Dec 14 2004 *)
%o A100436 (Python)
%o A100436 def A100436(n): return len({i*j*k for i in range(1,n+1) for j in range(1,i+1) for k in range(1,j)}) # _Chai Wah Wu_, Oct 16 2023
%Y A100436 Cf. A027425, A027430, A100435.
%K A100436 nonn
%O A100436 1,3
%A A100436 _N. J. A. Sloane_, Nov 21 2004
%E A100436 More terms from _Robert G. Wilson v_, Dec 14 2004