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 A379551 #12 Dec 26 2024 14:03:52 %S A379551 1,1,2,2,4,6,9,10,14,26,28,46,60,66,84,124,169,192,256,311,347,455, %T A379551 545,713,993,1167,1255,1466,1590,1846,3042,3491,4279,4564,6312,6712, %U A379551 8094,9697,10923,13027,15460,16368,21585,22795,25392,26778,36651,49641,54801,57560 %N A379551 Number of partitions of prime(n) into squares. %H A379551 Michael De Vlieger, <a href="/A379551/b379551.txt">Table of n, a(n) for n = 1..10000</a> %F A379551 a(n) = A001156(prime(n)). %e A379551 prime(5) = 11 = 11*1^2 = 3^2+2*1^2 = 2*2^2+3*1^2 = 2^2+7*1^2, so a(5) = 4. %t A379551 f[n_, i_] := f[n, i] = If[n == 0, 1, If[i < 1, 0, f[n, i - 1] + If[i^2 > n, 0, f[n - i^2, i] ] ] ]; Table[f[#, Floor@ Sqrt[#]] &[Prime[n]], {n, 120}] (* _Michael De Vlieger_, Dec 26 2024, after _Jean-François Alcover_ at A001156 *) %Y A379551 Cf. A000040, A001156. %K A379551 nonn %O A379551 1,3 %A A379551 _David James Sycamore_, Dec 25 2024 %E A379551 More terms from _Michael De Vlieger_, Dec 26 2024.