|
%I #26 Jul 03 2022 06:46:24
%S 46656,1000000,7529536,11390625,85766121,113379904,308915776,
%T 1291467969,1544804416,1838265625,3010936384,3518743761,9474296896,
%U 17596287801,27680640625,34296447249,38068692544,56800235584,75418890625,107918163081,164206490176,208422380089
%N Numbers with 49 divisors.
%C Numbers of the forms p^48 and p^6*q^6, where p and q are distinct primes.
%H T. D. Noe, <a href="/A175755/b175755.txt">Table of n, a(n) for n = 1..1000</a>
%H OEIS Wiki, <a href="https://oeis.org/wiki/Index_entries_for_number_of_divisors">Index entries for number of divisors</a>
%F A000005(a(n)) = 49.
%F Sum_{n>=1} 1/a(n) = (P(6)^2 - P(12))/2 + P(48) = 0.0000226806..., where P is the prime zeta function. - _Amiram Eldar_, Jul 03 2022
%e a(1) = A114334(49); a(2) = A159765(49).
%t Select[Range[100000000],DivisorSigma[0,#]==48&] (* _Vladimir Joseph Stephan Orlovsky_, May 06 2011 *)
%o (Haskell)
%o a175755 n = a175755_list !! (n-1)
%o a175755_list = m (map (^ 48) a000040_list) (map (^ 6) a006881_list) where
%o m xs'@(x:xs) ys'@(y:ys) | x < y = x : m xs ys'
%o | otherwise = y : m xs' ys
%o -- _Reinhard Zumkeller_, Nov 29 2011
%o (PARI) is(n)=numdiv(n)==49 \\ _Charles R Greathouse IV_, Jun 19 2016
%Y Cf. A000005, A139575, A175754, A201266, A137488, A135581.
%K nonn
%O 1,1
%A _Jaroslav Krizek_, Aug 27 2010
%E Extended by _T. D. Noe_, May 08 2011
| 