%I #10 Apr 15 2014 15:55:49
%S 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,
%T 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,
%U 1,1,2,1,1,2,2,1,1,2,2,1,2,1,1,2,2,1
%N Number of times n occurs in Hofstadter H-sequence A005374.
%C a(A202341(n)) = 1; a(A202342(n)) = 2.
%H Reinhard Zumkeller, <a href="/A202340/b202340.txt">Table of n, a(n) for n = 0..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/HofstadterH-Sequence.html">Hofstadter H-Sequence.</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Hofstadter_sequence">Hofstadter sequence</a>
%H <a href="/index/Ho#Hofstadter">Index entries for Hofstadter-type sequences</a>
%o (Haskell)
%o import Data.List (group)
%o a202340 n = a202340_list !! n
%o a202340_list = map length $ group a005374_list
%Y Cf. A005374, A202341, A202342.
%K nonn
%O 0,2
%A _Reinhard Zumkeller_, Dec 17 2011