This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A088359 #29 Oct 12 2018 21:59:02
%S A088359 3,5,6,9,10,11,13,17,18,19,20,22,23,25,28,33,34,35,36,37,39,40,41,43,
%T A088359 44,46,49,50,52,55,59,65,66,67,68,69,70,72,73,74,75,77,78,79,81,82,84,
%U A088359 87,88,89,91,92,94,97,98,100,103,107,108,110,113,117,122,129,130,131,132
%N A088359 Numbers which occur only once in A004001.
%C A088359 Out of the first one million terms (a(10^6) = 510403), 258661 occur only once.
%C A088359 Complement of A087686; A051135(a(n)) = 1. - _Reinhard Zumkeller_, Jun 03 2011
%C A088359 From _Antti Karttunen_, Jan 18 2016: (Start)
%C A088359 In general, out of the first 2^(n+1) terms of A004001, 2^(n-1) - 1 terms (a quarter) occur only once. See also illustration in A265332.
%C A088359 One more than the positions of ones in A093879.
%C A088359 (End)
%H A088359 Reinhard Zumkeller, <a href="/A088359/b088359.txt">Table of n, a(n) for n = 1..10000</a>
%F A088359 From _Antti Karttunen_, Jan 18 2016: (Start)
%F A088359 Other identities.
%F A088359 For all n >= 0, a(A000079(n)) = A000051(n+1), that is, a(2^n) = 2^(n+1) + 1.
%F A088359 For all n >= 1:
%F A088359 a(n) = A004001(A266399(n)).
%F A088359 (End)
%t A088359 a[1] = 1; a[2] = 1; a[n_] := a[n] = a[ a[n - 1]] + a[n - a[n - 1]]; hc = Table[ a[n], {n, 1, 261}]; RunLengthEncodeOne[x_List] := Length[ # ] == 1 & /@ Split[x]; r = RunLengthEncodeOne[hc]; Select[ Range[ Length[r]], r[[ # ]] == True &]
%o A088359 (Haskell)
%o A088359 import Data.List (elemIndices)
%o A088359 a088359 n = a088359_list !! (n-1)
%o A088359 a088359_list = map succ $ elemIndices 1 a051135_list
%o A088359 -- _Reinhard Zumkeller_, Jun 03 2011
%o A088359 (Scheme, with Antti Karttunen's IntSeq-library)
%o A088359 (define A088359 (ZERO-POS 1 1 (COMPOSE -1+ A051135)))
%o A088359 ;; _Antti Karttunen_, Jan 18 2016
%Y A088359 Positions of ones in A051135.
%Y A088359 Cf. A188163 (same sequence with prepended 1).
%Y A088359 Cf. A087686 (complement).
%Y A088359 Cf. A004001, A093879, A265332, A266399.
%Y A088359 Cf. also A267110, A267111, A267112.
%K A088359 nonn
%O A088359 1,1
%A A088359 _Robert G. Wilson v_, Sep 26 2003