|
%I #17 May 04 2018 08:49:34
%S 3072,5120,7168,11264,13312,17408,19456,23552,29696,31744,37888,41984,
%T 44032,48128,54272,60416,62464,68608,72704,74752,80896,84992,91136,
%U 99328,103424,105472,109568,111616,115712,118098,130048,134144,140288
%N Numbers with 22 divisors.
%C Maple implementation: see A030513.
%C Numbers of the form p^21 or p*q^10, where p and q are distinct primes. - _R. J. Mathar_, Mar 01 2010
%H T. D. Noe, <a href="/A137485/b137485.txt">Table of n, a(n) for n = 1..1000</a>
%F A000005(a(n))=22.
%p A137485=proc(q) local n;
%p for n from 1 to q do if tau(n)=22 then print(n); fi; od; end:
%p A137485(10^10);
%t Select[Range[200000],DivisorSigma[0,#]==22&] (* _Vladimir Joseph Stephan Orlovsky_, May 05 2011 *)
%o (PARI) is(n)=numdiv(n)==22 \\ _Charles R Greathouse IV_, Jun 19 2016
%Y Cf. A030513-A030516, A030626, A030627, A030634-A030638, A005179, A003680, A096932, A061286, A061283.
%K nonn
%O 1,1
%A _R. J. Mathar_, Apr 22 2008
|
