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!)
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
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
Sequence in context: A342650 A328273 A342262 * A357142 A033075 A215014
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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 02:23 EDT 2024. Contains 371264 sequences. (Running on oeis4.)