OFFSET
1,1
COMMENTS
Differs from A245631 at n = 6, 12, 21, 34, 49, 51, 58, 68, 72, 92, ... - Chai Wah Wu, Feb 20 2023
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
EXAMPLE
23 is not a cube. 24 is not a cube. 25 is not a cube. 26 is not a cube. 27 is a cube. Thus a(2) = 7.
MATHEMATICA
lnk[n_]:=Module[{k=n+1}, While[!IntegerQ[Surd[n*10^IntegerLength[k]+k, 3]], k++]; k]; Array[lnk, 60] (* Harvey P. Dale, Oct 14 2021 *)
PROG
(PARI)
a(n)=s=Str(n); k=n+1; while(!(ispower(eval(concat(s, Str(k))), 3)), k++); return(k)
vector(100, n, a(n))
(Python)
from sympy import integer_nthroot
def A243092(n):
m, a = 10*n, 10**(len(str(n))-1)
while (k:=(integer_nthroot(a*(m+1)-1, 3)[0]+1)**3-m*a)>=10*a or k<=n:
a *= 10
return k # Chai Wah Wu, Feb 20 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Derek Orr, Aug 18 2014
EXTENSIONS
Improvement to PARI code by Colin Barker, Aug 18 2014
STATUS
approved