OFFSET
1,1
LINKS
EXAMPLE
49 = 7^2 = 5^2 + 5*3 + 3^2.
PROG
(PARI) is(n)=my(f=factor(n), t); for(i=1, #f~, if(f[i, 1]%3!=1 && (f[i, 1]!=3 || f[i, 2]>1), return(0)); if(f[i, 1]%3<2 && f[i, 2]>1, t=1); if(f[i, 1]%3==2, if(f[i, 2]%2, return(0), t=1))); t \\ Charles R Greathouse IV, Nov 04 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Extended by Ray Chandler, Jan 29 2009
STATUS
approved