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 A054546 #27 Jul 02 2025 16:01:59
%S A054546 1,3,2,2,1,1,2,2,1,1,2,2,1,1,2,1,1,1,1,2,2,1,1,1,1,2,1,1,2,2,1,1,2,1,
%T A054546 1,1,1,2,1,1,1,1,2,2,1,1,1,1,2,1,1,2,2,1,1,1,1,2,1,1,2,1,1,1,1,2,1,1,
%U A054546 1,1,1,1,2,1,1,2,2,1,1,2,2,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,2,1,1,1,1,2
%N A054546 First differences of nonprimes (including 0 and 1, A002808).
%C A054546 Sum of first n terms equals n-th nonprime number.
%C A054546 First differences of A141468. - Omar E. Pol, Oct 21 2011
%H A054546 Harvey P. Dale, <a href="/A054546/b054546.txt">Table of n, a(n) for n = 1..1000</a>
%F A054546 a(n) = A018252(n) - A141468(n). - Omar E. Pol, Oct 21 2011
%t A054546 t=Flatten[Position[Table[PrimeQ[w], {w, 2, 256}], False]]+1 Delete[t-RotateRight[t], 1]
%t A054546 Differences[Select[Range[0,200],!PrimeQ[#]&]] (* _Harvey P. Dale_, May 27 2018 *)
%Y A054546 Cf. A141468, A066110, A001223
%K A054546 nonn,easy
%O A054546 1,2
%A A054546 _G. L. Honaker, Jr._, Apr 09 2000
%E A054546 More terms from _James Sellers_, Apr 11 2000