login
A258383
Run lengths of consecutive identical terms in A062234.
9
2, 2, 2, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 1
OFFSET
1,1
COMMENTS
a(A258437(n)) = n and a(m) != n for m < A258437(n). [Because of recent changes that were made to A258437, this comment may now need to be changed. - N. J. A. Sloane, Oct 31 2024]
LINKS
EXAMPLE
See A258432.
MATHEMATICA
Map[Length, Most[Split[ListConvolve[{-1, 2}, Prime[Range[200]]]]]] (* Paolo Xausa, Oct 30 2024 *)
PROG
(Haskell)
import Data.List (group)
a258383 n = a258383_list !! (n-1)
a258383_list = map length $ group a062234_list
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 31 2015
STATUS
approved