A111271 Where records occur in A111229.

1, 2, 3, 6, 12, 15, 18, 35, 42, 74, 108, 140, 144, 168, 171, 180, 194, 240, 243, 312, 352, 404, 420, 486, 500, 522, 524, 546, 640, 790, 989, 1064, 1429, 1705, 1986, 2145, 2289, 2800, 3220, 3460, 3630, 4232, 4484, 4826, 4950, 5328, 5510, 6240, 6554, 8622, 9094

Offset

1,2

Links

Table of n, a(n) for n=1..51.

Prog

(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)

Crossrefs

Sequence in context: A281110 A252792 A284638 * A217647 A070926 A226023

Adjacent sequences: A111268 A111269 A111270 * A111272 A111273 A111274

Keyword

nonn

Author

N. J. A. Sloane, Nov 03 2005

Extensions

More terms from Lambert Klasen (lambert.klasen(AT)gmx.net), Nov 08 2005

Status

approved