OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..2000
MATHEMATICA
Round[(Power[7, (4)^-1])^Range[0, 40]] (* Harvey P. Dale, Jan 16 2011 *)
PROG
(Python)
from sympy import integer_nthroot
def A018064(n): return -integer_nthroot(m:=7**n, 4)[0]+integer_nthroot(m<<4, 4)[0] # Chai Wah Wu, Jun 20 2024
(Magma) R := RealField(20); r := R!7^(1/4); vals := [Round(r^i) : i in [0..40]]; print vals; // Vincenzo Librandi, May 31 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved
