OFFSET
1,1
COMMENTS
LINKS
T. D. Noe, Rows n=1..24 of triangle, flattened
EXAMPLE
The triangular array begins 2; 2,2; 2,4,2; 5,4,5,2; 7,12,6,5,2; ...
a(7) = 5 because the 3-almost primes between 16 and 32 are (18,20,27,28,30).
MATHEMATICA
t[n_, k_] := Count[Range[2^n, 2^(n+1)-1], x_ /; Total[FactorInteger[x][[All, 2]]] == k]; Table[t[n, k], {n, 1, 12}, {k, 1, n}] // Flatten (* Jean-François Alcover, Nov 07 2013 *)
CROSSREFS
KEYWORD
AUTHOR
EXTENSIONS
More terms from Naohiro Nomoto, Jun 18 2001
STATUS
approved