%I #3 Mar 30 2012 16:50:19
%S 1,2,3,6,12,15,18,35,42,74,108,140,144,168,171,180,194,240,243,312,
%T 352,404,420,486,500,522,524,546,640,790,989,1064,1429,1705,1986,2145,
%U 2289,2800,3220,3460,3630,4232,4484,4826,4950,5328,5510,6240,6554,8622,9094
%N Where records occur in A111229.
%o (PARI) { /* replace M below by a <cr> (<ctrl+v><ctrl+m>) */ a=vector(1000000); c=0; s=Set(); q=0; for(p=1,2000000,if(isprime(p),q+=p; v=divisors(q); for(i=1,length(v),if(setsearch(s,v[i])==0,c++; if(v[i]<1000000, a[v[i]]=c); print1(p,"M"); s=setunion(s,[v[i]]); break)))); m=0; i=1; while(a[i],if(a[i]>m,m=a[i]; print1(i,",")); i++) } (Klasen)
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Nov 03 2005
%E More terms from Lambert Klasen (lambert.klasen(AT)gmx.net), Nov 08 2005