This site is supported by donations to The OEIS Foundation.

 Annual Appeal: Please make a donation to keep the OEIS running. In 2018 we replaced the server with a faster one, added 20000 new sequences, and reached 7000 citations (often saying "discovered thanks to the OEIS"). Other ways to donate

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A262507 a(n) = number of times n occurs in A155043. 15
 1, 2, 3, 5, 4, 5, 6, 4, 4, 4, 8, 4, 4, 5, 8, 7, 7, 7, 7, 8, 5, 6, 6, 8, 10, 7, 8, 7, 7, 5, 5, 6, 6, 8, 6, 7, 7, 7, 4, 5, 5, 6, 6, 8, 7, 5, 5, 6, 7, 11, 5, 4, 5, 8, 12, 7, 9, 5, 8, 8, 9, 10, 14, 11, 12, 11, 9, 11, 13, 12, 12, 11, 11, 11, 12, 12, 10, 9, 9, 9, 8, 6, 10, 9, 10, 8, 7, 7, 8, 11, 10, 10, 12, 9, 7, 6, 5, 5, 5, 5, 4, 7, 8, 6, 7, 9, 7, 5, 11, 13, 13, 8, 10, 12, 13, 10, 12, 16, 9, 8, 12 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 COMMENTS Records are: 1, 2, 3, 5, 6, 8, 10, 11, 12, 14, 16, 17, 19, 21, 22, 24, 25, 26, 27, 31, 35, 39, 44, ... and they occur at positions: 0, 1, 2, 3, 6, 10, 24, 49, 54, 62, 117, 236, 445, 484, 892, 893, 1022, 1784, 1911, 1912, 1913, 20600, 50822, ... a(n) gives the length of each row of irregular table A263265. LINKS Antti Karttunen, Table of n, a(n) for n = 0..110880 FORMULA a(n) = Sum_{k=n..A262502(2+n)} [A155043(k) == n]. (Here [...] denotes the Iverson bracket, resulting 1 when A155043(k) is n and 0 otherwise.) Other identities. For all n >= 0: a(n) = A263279(n) + A263280(n). PROG (PARI) allocatemem(123456789); uplim = 2162160; \\ = A002182(41). v155043 = vector(uplim); v155043[1] = 1; v155043[2] = 1; for(i=3, uplim, v155043[i] = 1 + v155043[i-numdiv(i)]); uplim2 = 110880; \\ = A002182(30). v262507 = vector(uplim2); for(i=1, uplim, if(v155043[i] <= uplim2, v262507[v155043[i]]++)); A262507 = n -> if(!n, 1, v262507[n]); for(n=0, uplim2, write("b262507.txt", n, " ", A262507(n))); (Scheme) (define (A262507 n) (add (lambda (k) (if (= (A155043 k) n) 1 0)) n (A262502 (+ 2 n)))) ;; Auxiliary function add implements sum_{i=lowlim..uplim} intfun(i) (define (add intfun lowlim uplim) (let sumloop ((i lowlim) (res 0)) (cond ((> i uplim) res) (else (sumloop (1+ i) (+ res (intfun i))))))) CROSSREFS Cf. A000005, A060990, A155043, A262502, A262505, A263265, A263270, A263279, A263280. Cf. A261089, A262503. Cf. A262508 (positions of ones). Cf. A263260 (partial sums). Sequence in context: A267808 A239852 A263279 * A151679 A077664 A179475 Adjacent sequences:  A262504 A262505 A262506 * A262508 A262509 A262510 KEYWORD nonn AUTHOR Antti Karttunen, Sep 25 2015 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.

Last modified December 12 16:06 EST 2018. Contains 318077 sequences. (Running on oeis4.)