OFFSET
0,4
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..100
FORMULA
a(n) = A121303(n^2,n).
EXAMPLE
a(3) = 4: 333, 225, 252, 522.
MAPLE
b:= proc(n, t) option remember;
`if`(n=0, `if`(t=0, 1, 0), `if`(t<1, 0, add(
`if`(isprime(j), b(n-j, t-1), 0), j=1..n)))
end:
a:= n-> b(n^2, n):
seq(a(n), n=0..22);
MATHEMATICA
b[n_, t_] := b[n, t] =
If[n == 0, If[t == 0, 1, 0], If[t < 1, 0, Sum[
If[PrimeQ[j], b[n-j, t-1], 0], {j, 1, n}]]];
a[n_] := b[n^2, n];
Table[a[n], {n, 0, 22}] (* Jean-François Alcover, May 02 2022, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Feb 12 2021
STATUS
approved
