%I #11 Jul 09 2023 09:59:25
%S 2,3,5,5,5,6,5,5,5,4,5,4,5,7,7,6,5,4,5,9,7,5,4,5,6,6,8,5,6,4,7,5,7,5,
%T 5,7,4,4,6,7
%N Number of distinct prime factors of A101291.
%H Dario Alpern, <a href="https://www.alpertron.com.ar/ecm.htm">Factorization using the Elliptic Curve Method</a>.
%e The number of distinct prime factors of 45 is 2.
%e The number of distinct prime factors of 4905 is 3.
%e The number of distinct prime factors of 494550 is 5.
%p A101291 := proc(n) 99*100^n/200-9*10^n/20 ; end: A133304 := proc(n) nops(numtheory[factorset](A101291(n))) ; end: for n from 1 do printf("%d,\n",A133304(n)) ; od: # _R. J. Mathar_, Jul 08 2009
%Y Cf. A101291.
%K nonn,base
%O 1,1
%A _Parthasarathy Nambi_, Oct 18 2007
%E 28 more terms from _R. J. Mathar_, Jul 08 2009
|