A202340 Number of times n occurs in Hofstadter H-sequence A005374.

1, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1

Offset

0,2

Comments

a(A202341(n)) = 1; a(A202342(n)) = 2.

Links

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Eric Weisstein's World of Mathematics, Hofstadter H-Sequence.

Wikipedia, Hofstadter sequence.

Index entries for Hofstadter-type sequences.

Formula

a(n) = A136495(n+1) - A136495(n) for n > 0. - Alan Michael Gómez Calderón, Dec 23 2024

Prog

(Haskell)
import Data.List (group)
a202340 n = a202340_list !! n
a202340_list = map length $ group a005374_list

Crossrefs

Cf. A005374, A136495, A202341, A202342.

Sequence in context: A264714 A375855 A265209 * A049705 A060236 A006345

Adjacent sequences: A202337 A202338 A202339 * A202341 A202342 A202343

Keyword

nonn

Author

Reinhard Zumkeller, Dec 17 2011

Status

approved