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 A194626 #19 Feb 16 2025 08:33:15 %S A194626 2,3,5,6,8,16,17,19,34,36,39,40,42,49,69,71,74,78,80,85,132,167,175, %T A194626 176,180,181,225,238,261,271,320,331,338,340,341,353,365,371,507,689, %U A194626 690,706,721,738,746,921,932,952,990,1012,1046,1212,1351,1352,1373 %N A194626 Numbers n such that next term of Hofstadter's Q-sequence differs by 1. %C A194626 A005185(a(n)+1) = A005185(a(n)) + 1; A081827(a(n)) = 1. %H A194626 Reinhard Zumkeller, <a href="/A194626/b194626.txt">Table of n, a(n) for n = 1..200</a> %H A194626 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/HofstadtersQ-Sequence.html">Hofstadter's Q-Sequence</a> %H A194626 Wikipedia, <a href="http://en.wikipedia.org/wiki/Hofstadter_sequence">Hofstadter sequence</a> %H A194626 <a href="/index/Ho#Hofstadter">Index entries for Hofstadter-type sequences</a> %o A194626 (Haskell) %o A194626 import Data.List (elemIndices) %o A194626 a194626 n = a194626_list !! (n-1) %o A194626 a194626_list = map (+ 1) $ elemIndices 1 a081827_list %Y A194626 Cf. A081828, A081829, A081830. %K A194626 nonn %O A194626 1,1 %A A194626 _Reinhard Zumkeller_, Sep 15 2011