|
%I #21 Nov 18 2017 08:46:43
%S 2,5,7,17,13,37,19,47,41,61,37,107,43,89,89,127,61,167,71,181,131,151,
%T 89,281,127,181,173,263,113,359,131,307,223,251,223,467,163,281,263,
%U 463,181,503,193,433,397,359,223,683,269,487,359,521,251,659,359,659
%N a(n) = prime(sigma(n)).
%H Antti Karttunen, <a href="/A067161/b067161.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Si#SIGMAN">Index entries for sequences related to sigma(n)</a>
%F a(n) = A000040(A000203(n)).
%F a(A000040(n)) = A072677(n). - _Michael B. Porter_, Nov 18 2017
%t Prime[DivisorSigma[1,Range[60]]] (* _Harvey P. Dale_, May 10 2013 *)
%o (PARI) A067161(n) = prime(sigma(n)); \\ _Antti Karttunen_, Nov 16 2017
%Y Cf. A000040, A000203, A072677.
%K nonn
%O 1,1
%A _Benoit Cloitre_, Feb 19 2002
|
