|
%I #8 Mar 30 2012 17:28:27
%S 1,2,3,5,7,8,9,11,13,14,15,16,18,19,20,22,23,27,28,31,36,39,41,43,45,
%T 47,48,50,52,54,57,60,62,67,73,74,76,79,82,83,85,86,88,89,93,98,101,
%U 102,109,111,117,120,134,136,143,151,158,160,166,167,192,202,221
%N Records in A067513.
%H Donovan Johnson, <a href="/A202728/b202728.txt">Table of n, a(n) for n = 1..100</a>
%F a(n) = A067513(A202727(n)).
%o (PARI) r=0;for(n=1,1e8,t=sumdiv(n,d,isprime(d+1));if(t>r,r=t;print1(t", ")))
%Y Cf. A202727, A067513.
%K nonn
%O 1,2
%A _Charles R Greathouse IV_, Dec 23 2011
|
