A306425 Smallest m such that A306305(m) = n.
11, 50, 25, 14, 7, 17, 26, 13, 24, 12, 6, 3, 15, 8, 4, 2, 1, 5, 31826, 15913, 79565, 6703845
Offset: 0
Crossrefs
Cf. A306305.
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
f:= proc(n) local L,k; for k from 1 do L:= convert(n^k,base,10); if has(L[2..-1]-L[1..-2],0) then return k fi od end proc: map(f, [$2..100]); # Robert Israel, Feb 21 2019
Table[k = 1; While[! MemberQ[Differences[IntegerDigits[n^k]], 0], k++]; k, {n, 2, 100}] (* T. D. Noe, Oct 01 2012 *)
def A217157(n): m, k = 1, n while True: s = str(k) for i in range(1,len(s)): if s[i] == s[i-1]: return m m += 1 k *= n # Chai Wah Wu, Feb 20 2019
a(1) = 11 since 3^11 = 177147 has 2 adjacent digits '7' and no smaller power of 3 has adjacent identical digits. Record values: a(1) = 11 a(241) = 12 a(2392) = 14 a(35698) = 15 a(267345) = 16 a(893521) = 17 a(29831625) = 18 a(3232453125) = 19
def A306494(n): m, k= 0, n while True: s = str(k) for i in range(1,len(s)): if s[i] == s[i-1]: return m m += 1 k *= 3
Comments