A279916 Least b such that A279688(n) and 2*A279688(n) are anagrams in base b.

5, 4, 8, 4, 3, 5, 5, 14, 4, 4, 4, 3, 3, 3, 4, 3, 4, 4, 4, 4, 20, 8, 23, 8, 11, 5, 5, 26, 5, 3, 3, 3, 4, 3, 4, 29, 3, 3, 3, 4, 3, 3, 4, 3, 4, 32, 6, 4, 11, 4, 4, 4, 35, 4, 4, 11, 4, 4, 4, 4, 4, 7, 38, 4, 6, 4, 4, 4, 4, 8, 41, 11, 16, 8, 44, 3, 47, 3, 3, 3, 3, 3

Offset

2,1

Links

Peter Kagey, Table of n, a(n) for n = 2..10000

Example

A279688(2) = 8, and a(2) = 5 because 5 is the least base such that 8 and 16 are anagrams: 8 = 13_5 and 16 = 31_5.

Mathematica

DeleteCases[#, 0] &@ Table[Module[{b = 2}, While[2 b < n + 3 && Sort[IntegerDigits[n, b]] != Sort[IntegerDigits[2 n, b]], b++]; b Boole[2 b < n + 3]], {n, 780}] (* Michael De Vlieger, Dec 23 2016, after Robert G. Wilson v at A279688 *)

Crossrefs

Cf. A023094, A279688, A279689.

Sequence in context: A203139 A184085 A086463 * A021952 A198579 A003672

Adjacent sequences: A279913 A279914 A279915 * A279917 A279918 A279919

Keyword

nonn,base,look

Author

Peter Kagey, Dec 23 2016

Status

approved