A097261 Numbers whose set of base 15 digits is {0,E}, where E base 15 = 14 base 10.

0, 14, 210, 224, 3150, 3164, 3360, 3374, 47250, 47264, 47460, 47474, 50400, 50414, 50610, 50624, 708750, 708764, 708960, 708974, 711900, 711914, 712110, 712124, 756000, 756014, 756210, 756224, 759150, 759164, 759360, 759374, 10631250

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 15 for every i.

Links

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

Formula

a(n) = 14*A033051(n).

a(2n) = 15*a(n), a(2n+1) = a(2n)+14.

Mathematica

f[n_] := FromDigits[ IntegerDigits[n, 2] /. {1 -> 14}, 15]; Array[f, 33, 0] (* or *)
FromDigits[#, 15] & /@ Tuples[{0, 14}, 6] (* Harvey P. Dale, Sep 22 2011 *) (* or much slower *)
fQ[n_] := Union@ Join[{0, 14}, IntegerDigits[n, 15]] == {0, 14}; Select[ Range[0, 10634414 ], fQ] (* Robert G. Wilson v, May 12 2012 *)

Prog

(Magma) [n: n in [0..4500000] | Set(IntegerToSequence(n, 15)) subset {0, 14}]; // Vincenzo Librandi, Jun 05 2012

Crossrefs

Cf. A001196, A005823, A097251-A097262.

Sequence in context: A251963 A192007 A160682 * A158555 A097183 A004369

Adjacent sequences: A097258 A097259 A097260 * A097262 A097263 A097264

Keyword

nonn,base

Author

Ray Chandler, Aug 03 2004

Status

approved