A097258 Numbers whose set of base 12 digits is {0,B}, where B base 12 = 11 base 10.

0, 11, 132, 143, 1584, 1595, 1716, 1727, 19008, 19019, 19140, 19151, 20592, 20603, 20724, 20735, 228096, 228107, 228228, 228239, 229680, 229691, 229812, 229823, 247104, 247115, 247236, 247247, 248688, 248699, 248820, 248831, 2737152

Offset

0,2

Comments

n such that there exists a permutation p_1, ..., p_n of 1, ..., n such that i + p_i is a power of 12 for every i.

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Formula

a(n) = 11*A033048(n).

a(2n) = 12*a(n), a(2n+1) = a(2n)+11.

Mathematica

f[n_] := FromDigits[ IntegerDigits[n, 2] /. {1 -> 11}, 12]; Array[f, 33, 0] (* or much slower *)
fQ[n_] := Union@ Join[{0, 11}, IntegerDigits[n, 12]] == {0, 11}; Select[ Range[0, 27370162], fQ] (* Robert G. Wilson v, May 12 2012 *)
FromDigits[#, 12]&/@Tuples[{0, 11}, 6] (* Vincenzo Librandi, May 26 2012 *)

Prog

(Magma) [n: n in [0..2800000] | Set(IntegerToSequence(n, 12)) subset {0, 11}]; // Vincenzo Librandi, May 26 2012

Crossrefs

Cf. A001196, A005823, A097251-A097262.

Sequence in context: A101334 A222872 A068645 * A044041 A158536 A229252

Adjacent sequences: A097255 A097256 A097257 * A097259 A097260 A097261

Keyword

nonn,base

Author

Ray Chandler, Aug 03 2004

Status

approved