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.

A348882 Numbers that are expressible as the product of the number of distinct prime factors of preceding integers.

This page as a plain text file.
%I A348882 #26 Dec 23 2021 12:39:35
%S A348882 16,48,72,96,144,432,576,1296,2592,5184,20736,32805,221184,1555200,
%T A348882 11197440,55987200,95551488,268738560,302330880,382205952,524880000,
%U A348882 671846400,6718464000,34012224000,155520000000,403107840000,6856864358400,107495424000000,110075314176000
%N A348882 Numbers that are expressible as the product of the number of distinct prime factors of preceding integers.
%e A348882 The number of distinct prime factors of the numbers 15, 14, 13, 12, 11, 10 are respectively 2, 2, 1, 2, 1, 2 and 2*2*1*2*1*2 = 16, hence 16 is a term.
%t A348882 om[n_] := om[n] = PrimeNu[n]; q[n_] := Module[{m = n, k = n - 1}, While[k > 1 && Divisible[m, om[k]], m /= om[k]; k--]; m == 1]; Select[Range[2, 10^6], q] (* _Amiram Eldar_, Nov 02 2021 *)
%Y A348882 Cf. A001221, A000961, A007774, A033992, A033993, A051270, A074969, A176655, A348266.
%K A348882 nonn
%O A348882 1,1
%A A348882 _Metin Sariyar_, Nov 02 2021
%E A348882 a(13)-a(17) from _Amiram Eldar_, Nov 02 2021
%E A348882 More terms from _David A. Corneth_, Nov 02 2021