OFFSET
1,1
COMMENTS
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..1000
Eric Weisstein's World of Mathematics, Biquadratic Number.
EXAMPLE
a(1)=2 because there are 2 1-digit 4th powers, 0 and 1.
MAPLE
r:= proc(n, k) local b; b:= iroot(n, k); b+`if`(b^k<n, 1, 0) end:
a:= n-> r(10^n, 4) -r(10^(n-1), 4) +`if`(n=1, 1, 0):
seq(a(n), n=1..50); # Alois P. Heinz, Sep 12 2012
MATHEMATICA
f[n_] := If[n == 1, 2, Ceiling[ Sqrt[ Sqrt[10^n]]] - Ceiling[ Sqrt[ Sqrt[10^(n - 1)]]]]; Table[ f[n], {n, 34}] (* Robert G. Wilson v, Mar 03 2005 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
James R. Buddenhagen, Feb 27 2005
EXTENSIONS
More terms from Robert G. Wilson v, Mar 03 2005
STATUS
approved