OFFSET
1,1
COMMENTS
Numbers k such that both k and k+1 belong to A007692.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
985 is a term since 12^2 + 29^2 = 16^2 + 27^2 = 985 and 5^2 + 31^2 = 19^2 + 25^2 = 986.
625 is not a term because 626 cannot be written as the sum of two positive squares in more than one way.
MATHEMATICA
ok[n_] := Length@ IntegerPartitions[n, {2}, Range[Sqrt@ n]^2] >= 2; Select[ Range@ 10000, ok[#] && ok[#+1] &] (* Giovanni Resta, Mar 24 2020 *)
PROG
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Mateusz Winiarski, Mar 21 2020
STATUS
approved