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,1

Links

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

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

Crossrefs

Cf. A216063, A216064, A216065.

Sequence in context: A370402 A029543 A097208 * A163956 A229661 A070724

Adjacent sequences: A216134 A216135 A216136 * A216138 A216139 A216140

Keyword

nonn,base

Author

V. Raman, Sep 01 2012

Status

approved