cp's OEIS Frontend

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.

A353069 Positions k such that A097465(k) and A097465(k+1) are odd.

This page as a plain text file.
%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