A216137 a(n) = conjectured number of integers k such that n^k has no two consecutive identical digits.

40, 24, 22, 23, 10, 12, 14, 13, 1, 8, 7, 10, 10, 8, 12, 8, 6, 6, 1, 6, 6, 9, 6, 12, 8, 9, 8, 10, 1, 8, 8, 6, 5, 6, 5, 8, 8, 5, 1, 10, 5, 4, 7, 8, 6, 4, 6, 5, 1, 6, 6, 8, 7, 6, 6, 6, 4, 5, 1, 7, 5, 5, 8, 5, 4, 4, 3, 6, 1, 4, 7, 5, 5, 8, 3, 4, 5, 7, 1, 4, 6, 7, 6

Offset: 2

Author

V. Raman, Sep 01 2012

Keywords

• nonn
• base

Links

• T. D. Noe, Table of n, a(n) for n = 2..1000

Crossrefs

Cf. A216063, A216064, A216065.

Programs

Mathematica

Table[cnt = 0; Do[If[! MemberQ[Differences[IntegerDigits[n^k]], 0], cnt++], {k, 1000}]; cnt, {n, 2, 100}] (* T. D. Noe, Sep 20 2012 *)