login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A162465 Numbers k = x//y which are a concatenation of x and y such that x^3 + y^3 is a multiple of k. 0
24, 27, 37, 48, 108, 111, 117, 143, 147, 148, 189, 216, 222, 231, 234, 243, 252, 259, 264, 273, 286, 288, 296, 297, 333, 351, 416, 429, 432, 444, 448, 462, 468, 481, 486, 525, 555, 585, 616, 648, 666, 693, 729, 777, 814, 819, 832, 858, 864, 888, 896, 999 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
Splicing of k such that y has leading zero digits is not admitted.
LINKS
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
Sequence in context: A141632 A308603 A141634 * A067193 A095235 A362404
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jul 04 2009
EXTENSIONS
Definition rephrased by R. J. Mathar, Sep 16 2009
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 06:15 EDT 2024. Contains 371265 sequences. (Running on oeis4.)