A202341 - OEIS

%I #11 Apr 15 2014 15:54:11

%S 0,2,3,6,8,9,11,12,15,16,19,21,22,25,27,28,30,31,34,36,37,39,40,43,44,

%T 47,49,50,52,53,56,57,60,62,63,66,68,69,71,72,75,76,79,81,82,85,87,88,

%U 90,91,94,96,97,99,100,103,104,107,109,110,113,115,116,118

%N Numbers occurring exactly once in Hofstadter H-sequence A005374.

%C A202340(a(n)) = 1.

%H Reinhard Zumkeller, <a href="/A202341/b202341.txt">Table of n, a(n) for n = 1..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 (elemIndices)

%o a202341 n = a202341_list !! (n-1)

%o a202341_list = elemIndices 1 a202340_list

%Y Cf. A005374, A202340, A202342 (complement).

%K nonn

%O 1,2

%A _Reinhard Zumkeller_, Dec 17 2011