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 A072630 #10 Jun 04 2022 21:17:57 %S A072630 1,7,19,53,147,403,1095,2979,8103,22025,59873,162753,442413,1202603, %T A072630 3269017,8886109,24154951,65659969,178482299,485165195,1318815733, %U A072630 3584912845,9744803445,26489122129,72004899337,195729609427 %N A072630 Values of n where A072629 switches from 01010.. into 0000.. or back. %F A072630 See program below. %F A072630 a(n) = A000149(n) or A000149(n)-1 whichever is odd. [From _Max Alekseyev_, Feb 06 2010] %t A072630 m[x_] := Mod[x*Floor[Log[x]//N],2]; Do[s=m[n]+m[n+1]; s1=m[n+1]+m[n+2]; If[ !Equal[s1,s],Print[n]],{n,1,1000000}] %Y A072630 See also A004648, A072608, A072609, A072610, A072630. %K A072630 nonn %O A072630 1,2 %A A072630 _Labos Elemer_, Jun 28 2002 %E A072630 More terms from _Max Alekseyev_, Feb 06 2010