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 A368870 #6 Jan 15 2024 11:13:51
%S A368870 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,5,5,5,5,6,6,6,6,7,7,7,7,8,8,8,8,9,9,
%T A368870 9,9,37,37,40,40,44,44,48,48,52,52,56,56,61,61,65,65,70,70,75,75,80,
%U A368870 80,85,85,91,91,96,96,351,351,378,378,411,411,441
%N A368870 Number of partitions of n into nonprime parts not greater than sqrt(n).
%p A368870 b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
%p A368870 b(n, i-1)+`if`(isprime(i), 0, b(n-i, min(n-i, i)))))
%p A368870 end:
%p A368870 a:= n-> b(n, floor(sqrt(n))):
%p A368870 seq(a(n), n=0..70); # _Alois P. Heinz_, Jan 13 2024
%t A368870 Table[SeriesCoefficient[Product[1/(1 - Boole[!PrimeQ[k]] x^k), {k, 1, Floor[Sqrt[n]]}], {x, 0, n}], {n, 0, 70}]
%Y A368870 Cf. A002095, A097356.
%K A368870 nonn
%O A368870 0,17
%A A368870 _Ilya Gutkovskiy_, Jan 08 2024