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 A378729 #19 Dec 08 2024 17:20:48
%S A378729 1,1,0,1,0,0,0,0,1,0,1,1,0,0,0,1,0,0,0,0,0,1,0,1,0,0,1,0,0,0,1,0,0,0,
%T A378729 0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,1,0,1,0,0,0,0,1,0,0,1,1,0,0,
%U A378729 0,0,1,1,1,0,0,0,1,0,1,1,1,0,0,1,1,0,1,0,1,0,0,0,0,1,0,0,0,0,0,0,0,1,1,1,0,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1
%N A378729 Characteristic function of the primitive practical numbers as a subsequence of the practical numbers.
%C A378729 a(n) = 1 indicates that the practical number A005153(n) is also primitive.
%e A378729 a(9) = 1 because A005153(9) = 20 and 20 is primitive practical.
%t A378729 plst=Last/@ReadList["https://oeis.org/A005153/b005153.txt", {Number, Number}]; pplst=Last/@ReadList["https://oeis.org/A267124/b267124.txt", {Number, Number}]; getpplst[n_] := Module[{}, Select[pplst, # <= n &]]; Table[lst=getpplst[plst[[n]]]; If[MemberQ[lst, plst[[n]]], 1, 0], {n, 1, 200}]
%Y A378729 Cf. A005153, A267124.
%K A378729 nonn
%O A378729 1,0
%A A378729 _Frank M Jackson_, Dec 06 2024