OFFSET
1,1
COMMENTS
Splicing of k such that y has leading zero digits is not admitted.
EXAMPLE
24 = 2//4 is listed because 2^3 + 4^3 = 72 = 3*24.
117 = 1//17 is listed because 1^3 + 17^3 = 1 + 4913 = 4914 = 42*117.
MAPLE
Lton := proc(L) add(op(i, L)*10^(i-1), i=1..nops(L)) ; end:
isA162465 := proc(n) dgs := convert(n, base, 10) ; for b from 1 to nops(dgs)-1 do y := Lton([op(1..b, dgs)]) ; x := Lton([op(b+1..nops(dgs), dgs)]) ; if (x^3+y^3) mod n = 0 and op(b, dgs) <> 0 then RETURN(true); fi; od: false; end:
for n from 10 to 1000 do if isA162465(n) then printf("%d, ", n); fi; od: # R. J. Mathar, Sep 16 2009
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jul 04 2009
EXTENSIONS
Definition rephrased by R. J. Mathar, Sep 16 2009
STATUS
approved