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.

A352204 Indices of records in A109812.

This page as a plain text file.
%I A352204 #24 Oct 27 2023 19:40:38
%S A352204 1,2,3,5,7,8,11,15,18,21,23,27,29,32,38,40,50,53,56,59,70,75,84,89,
%T A352204 101,103,106,108,113,156,161,163,164,188,239,293,307,328,417,420,425,
%U A352204 431,433,480,491,546,617,631,633,648,649,651,890,892,1225,1235,1245,1251,1305,1307,1315,1323,1324,1476,1485,1517,1598,1891,1898,1913,1970
%N A352204 Indices of records in A109812.
%H A352204 Rémy Sigrist, <a href="/A352204/b352204.txt">Table of n, a(n) for n = 1..962</a> (terms 1..113 from N. J. A. Sloane, terms 114..380 terms from Michael De Vlieger)
%H A352204 Rémy Sigrist, <a href="/A352204/a352204.txt">C++ program</a>.
%t A352204 c[_] = 0; a[1] = c[1] = r = 1; u = 2; {1}~Join~Reap[Do[k = u; While[Nand[c[k] == 0, BitAnd[a[i - 1], k] == 0], k++]; Set[{a[i], c[k]}, {k, i}]; If[k == u, While[c[u] > 0, u++]]; If[k > r, Sow[i]; Set[r, k]], {i, 2, 1980}]][[-1, -1]] (* _Michael De Vlieger_, Mar 29 2022 *)
%o A352204 (C++) See Links section.
%Y A352204 Cf. A109812, A352203.
%K A352204 nonn
%O A352204 1,2
%A A352204 _N. J. A. Sloane_ and _Chai Wah Wu_, Mar 28 2022