OFFSET
1,3
MATHEMATICA
a[n_] := Block[{rd = RealDigits[Sqrt@Sqrt@Prime@n, 10, 111]}, rd[[1, n + rd[[2]] ]]];
Array[a, 105] (* Robert G. Wilson v, Nov 17 2005 *)
PROG
(PARI) a(n) = localprec(n+1); floor(frac(sqrtn(prime(n), 4))*10^n) % 10; \\ Michel Marcus, Feb 22 2024
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Cino Hilliard, Nov 13 2005
EXTENSIONS
More terms from Robert G. Wilson v, Nov 17 2005
STATUS
approved