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 A087429 #20 Nov 19 2023 10:46:24
%S A087429 1,1,0,1,0,1,0,1,1,1,0,1,0,0,0,1,0,1,0,1,1,1,0,1,1,0,1,1,0,1,0,1,1,0,
%T A087429 0,1,0,0,0,1,0,1,0,0,1,1,0,1,0,1,0,1,0,1,0,1,1,1,0,1,0,0,0,1,0,1,0,1,
%U A087429 0,1,0,1,0,0,1,0,1,1,0,0,1,1,0,1,1,0,0,1,0,1,1,1,1,0,0,1,0,1,0,1,0,1
%N A087429 a(n) = 1 if gpf(n) < gpf(n+1), otherwise 0, where gpf = A006530 (greatest prime factor).
%C A087429 Equivalently, a(n) = 1 iff A061395(n+1) > A061395(n), otherwise a(n) = 0. - _Giovanni Teofilatto_, Jan 03 2008
%H A087429 Amiram Eldar, <a href="/A087429/b087429.txt">Table of n, a(n) for n = 1..10000</a>
%H A087429 <a href="/index/Ch#char_fns">Index entries for characteristic functions</a>
%F A087429 a(n) = A057427(1+A057427(A070221(n))).
%F A087429 a(p-1)=1 and a(p)=0 for primes p.
%F A087429 a(A070089(n)) = 1, a(A070087(n)) = 0, a(A087430(n)) = 0.
%t A087429 Join[{1}, Table[If[PrimePi[FactorInteger[n + 1][[ -1, 1]]] > PrimePi[FactorInteger[n][[ -1, 1]]], 1, 0], {n, 2, 90}]] (* _Stefan Steinerberger_, Jan 06 2008 *)
%t A087429 If[#[[1]]<#[[2]],1,0]&/@Partition[FactorInteger[#][[-1,1]]&/@Range[120],2,1] (* _Harvey P. Dale_, Nov 19 2023 *)
%Y A087429 Characteristic function of A070089.
%Y A087429 Cf. A006530, A057427, A061395, A070087, A070221, A087430.
%K A087429 nonn
%O A087429 1,1
%A A087429 _Reinhard Zumkeller_, Sep 02 2003
%E A087429 Edited by _N. J. A. Sloane_, Jul 01 2008, at the suggestion of _R. J. Mathar_