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 A353069 #13 May 07 2022 10:22:53 %S A353069 1,2,7,12,41,100,521,1150,10391,15008,255247,1786778,4849835,5870858, %T A353069 6561553,557732162,3234846601,3457939474,4360010651 %N A353069 Positions k such that A097465(k) and A097465(k+1) are odd. %C A353069 Fixed points in A097465 appear in the intervals [12, 41], [100, 521], [1150, 10391], etc. %H A353069 Rémy Sigrist, <a href="/A353069/a353069.txt">C program</a> %t A353069 nn = 2^20; c = {1}; j = 1; u = 2; {1}~Join~Reap[Do[k = u; While[Nand[FreeQ[c, k], CoprimeQ[j, k], k != j + 1, k != j - 1], k++]; j = k; AppendTo[c, k]; If[# != s, s = #; Sow[i - 1]] &@ Mod[#, 2] &@ Abs[k - i]; If[k == u, While[MemberQ[c, u], u++]; c = DeleteCases[c, _?(# < u &)]], {i, 2, nn}]][[-1, -1]] %o A353069 (C) See Links section. %Y A353069 Cf. A097465, A351646, A352096. %K A353069 nonn,more %O A353069 1,2 %A A353069 _Michael De Vlieger_, May 05 2022 %E A353069 a(17)-a(19) from _Rémy Sigrist_, May 07 2022