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

Author

Ray Chandler, Aug 03 2004

Keywords

• nonn
• base

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

Crossrefs

Cf. A001196, A005823, A097251-A097262.

Programs

Magma

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

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 *)

Formula

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

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