The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A255734 Numbers n such that A080719(n) divides n. 0
 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 20, 30, 40, 50, 60, 70, 80, 90, 100, 105, 112, 120, 200, 210, 220, 240, 300, 330, 342, 360, 400, 408, 453, 462, 500, 504, 573, 600, 700, 720, 800, 900, 924, 1000, 1008, 1010, 1012, 1020, 1040, 1050, 1116, 1120, 1145, 1200, 1320, 1750, 1900, 2000 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS Table of n, a(n) for n=1..59. EXAMPLE Let us consider n = 342: 3 converted to base 2 is 11, 4 is 100, 2 is 10. Their concatenation is 1110010 that converted to base 10 is 114. So A080719(342) = 114. Finally 114 divides 342, so 342 is a member. MAPLE P:=proc(q) local a, b, k, n, x; for n from 1 to q do x:=[]; a:=n; for k from 1 to length(n) do b:=convert((a mod 10), base, 2); if b=[] then x:=[op(x), 0]; else x:=[op(x), op(b)]; fi; a:=trunc(a/10); od; a:=0; for k from 1 to nops(x) do a:=2*a+x[-k]; od; if frac(n/a)=0 then print(n); fi; od; end: P(2000); MATHEMATICA Select[Range[2000], Divisible[#, FromDigits[Flatten[IntegerDigits[#, 2]&/@ IntegerDigits[ #]], 2]]&] (* Harvey P. Dale, Mar 13 2019 *) CROSSREFS Cf. A007088, A080719. Sequence in context: A342650 A328273 A342262 * A357142 A033075 A215014 Adjacent sequences: A255731 A255732 A255733 * A255735 A255736 A255737 KEYWORD nonn,base AUTHOR Paolo P. Lava, Mar 05 2015 EXTENSIONS Corrected and extended by Harvey P. Dale, Mar 13 2019 Corrected Maple code by Paolo P. Lava, Apr 01 2019 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.

Last modified May 22 06:48 EDT 2024. Contains 372743 sequences. (Running on oeis4.)