A257345 Regard the terms of A004290 as binary numbers and convert to base 10.

0, 1, 2, 7, 4, 2, 14, 9, 8, 511, 2, 3, 28, 9, 18, 14, 16, 29, 1022, 25, 4, 21, 6, 53, 56, 4, 18, 895, 36, 109, 14, 59, 32, 63, 58, 18, 2044, 7, 50, 21, 8, 31, 42, 109, 12, 1022, 106, 19, 112, 97, 4, 35, 36, 35, 1790, 6, 72, 25, 218, 223, 28, 37, 118, 991, 64

Offset

0,3

Comments

Of course the terms of A004290 are already in base 10 (they just happen to involve only the digits 0 and 1), so there is no justification for this sequence other than curiosity.

a(n) < 2^n. - Chai Wah Wu, Apr 29 2015

Links

Chai Wah Wu, Table of n, a(n) for n = 0..9998

Mathematica

s = With[{c = Rest[Union[FromDigits /@ Flatten[Table[Tuples[{1, 0}, i], {i, 10}], 1]]]}, Join[{0}, Flatten[Table[Select[c, Divisible[#, n] &, 1], {n, 120}]]]]; FromDigits[IntegerDigits@ #, 2] & /@ s (* Michael De Vlieger, Apr 29 2015, after Harvey P. Dale at A004290 *)

Prog

(Python)
def A257345(n):
....if n > 0:
........for i in range(1, 2**n):
............x = int(format(i, 'b'))
............if not x % n:
................return int(str(x), 2)
....return 0 # Chai Wah Wu, Apr 29 2015

Crossrefs

Cf. A079339, A004290, A131577.

Sequence in context: A073239 A134882 A125140 * A110637 A092943 A332503

Adjacent sequences: A257342 A257343 A257344 * A257346 A257347 A257348

Keyword

nonn,base

Author

N. J. A. Sloane, Apr 29 2015

Extensions

More terms from Chai Wah Wu, Apr 29 2015

Status

approved