OFFSET
0,4
LINKS
PROG
(PARI)
is_A020689(n) = { my(r); forstep(y=sqrtint(ceil(n/7)), 0, -1, r = (n-7*(y^2)); if(!(r%6) && issquare(r/6), return(1))); (0); };
CROSSREFS
KEYWORD
nonn,more
AUTHOR
STATUS
approved