OFFSET
1,1
COMMENTS
It appears that 1275 is the first k for which a(k) = 0. - Robert Israel, Oct 14 2024
LINKS
FORMULA
A111900(a(n)) = n.
EXAMPLE
a(2) = 410 because 410 = 7^2 + 19^2 = 11^2 + 17^2 and this is the smallest number that can be written as the sum of distinct squares of primes in 2 different ways.
MAPLE
N:= 100: # to try with primes up to N
P:= select(isprime, [2, seq(i, i=3..N, 2)]):
nP:= nops(P):
S:= mul(1+x^(P[i]^2), i=1..nP):
M:= 100: # for a(1) .. a(M)
V:= Vector(M): count:= 0:
for i from 4 to N^2 while count < M do
r:= coeff(S, x, i);
if r >= 1 and r <= M and V[r] = 0 then count:= count+1; V[r]:= i; fi
od:
convert(V, list); # Robert Israel, Oct 14 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jun 03 2017
STATUS
approved