|
%I #7 Nov 28 2016 14:18:21
%S 2,3,5,7,9,10,11,13,17,19,22,23,25,29,31,34,37,41,43,46,47,49,53,55,
%T 58,59,61,67,71,73,76,78,79,81,82,83,85,89,91,94,97,101,103,106,107,
%U 109,113,115,116,118,121,127,131,133,137,139,142,145,149,151,157,163
%N Numbers n such that A096736(n) = (n*tau(n)-1)/(tau(n)-1).
%C (a(n)*tau(a(n))-1) mod (tau(a(n))-1) = 0;
%C primes are a subsequence.
%H G. C. Greubel, <a href="/A096738/b096738.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[2, 500], (#*DivisorSigma[0, #] - 1)/(DivisorSigma[0, #] - 1) == Floor[(#*DivisorSigma[0, #] - 1)/(DivisorSigma[0, #] - 1)] &] (* _G. C. Greubel_, Nov 28 2016 *)
%Y Cf. A000040.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Jul 06 2004
|
