login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A341348 Runlengths of A341346. 2
1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 2, 3, 2, 1, 1, 1, 1, 2, 4, 3, 3, 3, 1, 1, 1, 1, 2, 3, 2, 1, 2, 1, 2, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7, 3, 1, 4, 1, 3, 3, 1, 4, 1, 1, 2, 1, 6, 2, 1, 1, 2, 2, 2, 3, 4, 2, 3, 2, 1, 1, 1, 2, 1, 1, 1, 4, 1, 2, 1, 1, 1, 2, 2, 2, 3, 3, 4, 1, 1, 2, 1, 1, 1, 4, 1, 5, 3, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,5

COMMENTS

Records 1, 2, 3, 4, 7, 8, 11, 12, 14, 15, 19, 23, ..., occur at n = 1, 5, 14, 21, 51, 162, 319, 851, 1543, 6568, 91616, 608928, ...

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..65537

Index entries for sequences computed from indices in prime factorization

EXAMPLE

A341346 begins as 1, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, ...,

  thus this sequence begins as 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 2, 3, 2, ...

PROG

(PARI)

up_to = 65537;

A003961(n) = { my(f=factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); }; \\ From A003961

A341346(n) = (((A003961(n+n-1)+1)/2)%3);

A341348lista(up_to) = { my(v=vector(up_to), r=1, n=0, i=2, pb=1, b); while(n<up_to, b = A341346(i); if(b==pb, r++, n++; v[n] = r; r = 1; pb = b); i++); (v); };

v341348 = A341348lista(up_to);

A341348(n) = v341348[n];

CROSSREFS

Cf. A003961, A048673, A341346.

Sequence in context: A099564 A341356 A276153 * A194606 A331180 A126389

Adjacent sequences:  A341345 A341346 A341347 * A341349 A341350 A341351

KEYWORD

nonn

AUTHOR

Antti Karttunen, Feb 10 2021

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 July 27 13:36 EDT 2021. Contains 346306 sequences. (Running on oeis4.)