login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A111271 Where records occur in A111229. 1
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 (list; graph; refs; listen; history; text; internal format)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 22 16:59 EDT 2019. Contains 327311 sequences. (Running on oeis4.)