OFFSET
1,1
EXAMPLE
None of 21, 22, 23, and 24 is representable as a sum of two squares. Previous record of run length was 2, hence a(3)=a(4)=21.
MATHEMATICA
t = Select[Range[10^4], SquaresR[2, #] == 0 &]; SelectFirst[t, Function[n, ContainsAll[t, n + Range@ #]]] & /@ Range[0, 15] (* Michael De Vlieger, Nov 09 2015, Version 10.2 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ivan Neretin, Nov 09 2015
STATUS
approved