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.

A027429 Number of distinct products ijk with 0 <= i < j < k <= n.

This page as a plain text file.
%I A027429 #21 May 28 2021 15:35:37
%S A027429 0,0,1,2,5,11,17,30,43,61,76,112,127,178,207,239,275,362,397,508,555,
%T A027429 614,678,839,884,1005,1093,1199,1278,1530,1591,1882,1999,2134,2276,
%U A027429 2433,2519,2922,3097,3279,3392,3885,4015,4564,4751,4939,5187,5841,5988,6423
%N A027429 Number of distinct products ijk with 0 <= i < j < k <= n.
%H A027429 Michael S. Branicky, <a href="/A027429/b027429.txt">Table of n, a(n) for n = 0..1000</a> (terms 0..200 from T. D. Noe)
%F A027429 a(n) = A027430(n) + 1. - _T. D. Noe_, Jan 16 2007
%e A027429 a(3) = 2 (0 and 6 being the only products) and a(4) = 5 (with products 0, 6, 8, 12 and 24).
%t A027429 nn=50; prod=Table[0, {1+nn^3}]; t=Table[Do[prod[[1+i*j*k]]=1, {i,0,n}, {j,i+1,n}, {k,j+1,n}]; Count[Take[prod,1+n^3],1], {n,0,nn}] (* _T. D. Noe_, Jan 16 2007 *)
%o A027429 (Haskell)
%o A027429 import Data.List (nub)
%o A027429 a027429 n = length $ nub [i*j*k | k<-[2..n], j<-[1..k-1], i<-[0..j-1]]
%o A027429 -- _Reinhard Zumkeller_, Jan 01 2012
%o A027429 (Python)
%o A027429 from itertools import combinations as C
%o A027429 def a(n): return len(set(i*j*k for i, j, k in C(range(n+1), 3)))
%o A027429 print([a(n) for n in range(50)]) # _Michael S. Branicky_, May 28 2021
%Y A027429 Cf. A027425, A027426, A027427, A027430.
%K A027429 nonn
%O A027429 0,4
%A A027429 _N. J. A. Sloane_
%E A027429 Corrected by _T. D. Noe_, Jan 16 2007