OFFSET
1,1
EXAMPLE
147 is a term because 147 = 14//7 = 14^2 + 7^2 - 14*7.
MAPLE
Lton := proc(L) add( op(i, L)*10^(i-1), i=1..nops(L)) ; end:
for n from 10 do dgs := convert(n, base, 10) ; for spli from 1 to nops(dgs)-1 do ydgs := [op(1..spli, dgs)] ; xdgs := [op(spli+1..nops(dgs), dgs)] ; if op(-1, ydgs) <> 0 then x := Lton(xdgs) ; y := Lton(ydgs) ; if y^2+x^2-x*y = n then print(n) ; fi; fi; od: od: # R. J. Mathar, Jul 16 2009
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jul 06 2009
EXTENSIONS
Definition simplified and 37, 48, 333667, 334668 added by R. J. Mathar, Jul 16 2009
STATUS
approved