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 A347744 #11 Dec 13 2022 03:46:54 %S A347744 1,1,2,3,3,3,3,3,4,2,3,1,4,3,5,2,4,1,6,3,6,2,5,1,8,2,5,0,4,1,8,3,6,2, %T A347744 7,0,8,1,5,2,6,1,10,3,8,2,7,1,12,2,8,0,6,1,12,2,6,0,7,1,14,3,7,2,10,0, %U A347744 12,1,6,2,10,1,14,3,11,2,10,0,14,1,10 %N A347744 Number of compositions (ordered partitions) of n into at most 2 prime parts (counting 1 as a prime). %t A347744 Table[Length@Flatten[Permutations/@IntegerPartitions[n,2,Join[{1},Prime@Range@PrimePi@n]],1],{n,0,80}] (* _Giorgos Kalogeropoulos_, Sep 12 2021 *) %o A347744 (PARI) { a(n) = local(s(n) = if(n<2,1,isprime(n))); if(n==0,1,sum(i=1,n,s(i)*s(n-i))); } \\ _Christian Krause_, Dec 06 2022 %Y A347744 Cf. A001031, A008578, A096139, A280917, A341982, A347739, A347745. %K A347744 nonn %O A347744 0,3 %A A347744 _Ilya Gutkovskiy_, Sep 11 2021