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.
%I A111423 #21 Feb 22 2024 14:36:47
%S A111423 1,1,5,5,6,8,1,2,3,1,7,9,2,1,5,5,0,3,4,3,4,7,5,0,1,3,4,4,5,0,8,1,1,0,
%T A111423 3,1,3,6,6,0,9,0,9,4,8,6,4,0,8,1,0,1,7,7,2,9,9,6,9,5,6,0,6,1,1,1,1,4,
%U A111423 4,0,6,9,9,4,6,6,3,9,2,4,8,9,3,5,2,5,0,7,8,4,8,8,6,2,8,6,0,6,9,0,6,1,8,6,5
%N A111423 a(n) = n-th decimal digit of the fractional part formed by the 4th root of the n-th prime.
%t A111423 a[n_] := Block[{rd = RealDigits[Sqrt@Sqrt@Prime@n, 10, 111]}, rd[[1, n + rd[[2]] ]]];
%t A111423 Array[a, 105] (* _Robert G. Wilson v_, Nov 17 2005 *)
%o A111423 (PARI) a(n) = localprec(n+1); floor(frac(sqrtn(prime(n), 4))*10^n) % 10; \\ _Michel Marcus_, Feb 22 2024
%Y A111423 Cf. A071901, A111422.
%K A111423 easy,nonn,base
%O A111423 1,3
%A A111423 _Cino Hilliard_, Nov 13 2005
%E A111423 More terms from _Robert G. Wilson v_, Nov 17 2005