A068354 Numbers n such that sigma(n)*tau(n) > prime(2*n) where sigma(n) is the sum of divisors of n and tau(n) the number of divisors of n (A000005).

4, 6, 8, 10, 12, 16, 18, 20, 24, 28, 30, 32, 36, 40, 42, 44, 45, 48, 50, 52, 54, 56, 60, 64, 66, 70, 72, 78, 80, 84, 88, 90, 96, 100, 102, 104, 105, 108, 110, 112, 114, 120, 126, 128, 130, 132, 135, 136, 138, 140, 144, 150, 152, 154, 156, 160, 162, 165, 168, 170

Offset

1,1

Links

Table of n, a(n) for n=1..60.

Mathematica

Select[Range[200], DivisorSigma[0, #]DivisorSigma[1, #]>Prime[2#]&] (* Harvey P. Dale, Aug 15 2011 *)

Prog

(PARI) for(n=1, 1000, if(sigma(n)*numdiv(n)>prime(2*n), print1(n, ", ")))

Crossrefs

Cf. A000005, A000203, A031215, A064840.

Sequence in context: A051756 A322839 A074827 * A354591 A075027 A309837

Adjacent sequences: A068351 A068352 A068353 * A068355 A068356 A068357

Keyword

easy,nonn

Author

Benoit Cloitre, Feb 28 2002

Status

approved