%I #12 Jan 11 2019 12:36:00
%S 1,2,2,3,2,4,2,4,4,2,4,4,2,6,4,4,2,4,4,2,4,5,4,4,6,2,8,2,4,4,4,8,2,6,
%T 2,4,4,8,6,4,2,8,2,8,2,4,4,9,2,8,4,2,4,8,6,4,2,6,6,2,4,4,4,2,12,4,4,8,
%U 2,8,8,4,4,4,4,6,4,8,4,4,2,8,2,4,9,4,8,8,2,8,6,4,4,4,4,6,4,2,6,4,8,8,10
%N a(n) is the number of divisors of prime(n) - 2.
%F a(n) = A000005(prime(n) - 2).
%e prime(23)=83, so a(23) = A000005(83-2) = A000005(81) = 5.
%t DivisorSigma[0,#]&/@(Prime[Range[2,110]]-2) (* _Harvey P. Dale_, Jan 11 2019 *)
%o (PARI) a(n) = numdiv(prime(n)-2); \\ _Michel Marcus_, May 14 2018
%K nonn
%O 2,2
%A _Labos Elemer_
%E Offset corrected by _Jon E. Schoenfield_, May 13 2018
|