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 A038676 #20 Jan 27 2021 10:31:46
%S A038676 81,2401,6561,14641,28561,38416,50625,83521,130321,194481,234256,
%T A038676 279841,390625,531441,707281,810000,923521,1185921,1500625,1679616,
%U A038676 1874161,2313441,2825761,3418801,4100625,4879681,5308416,5764801,6765201,7311616
%N A038676 Fourth powers ending in a (different) positive fourth power.
%H A038676 Harvey P. Dale, <a href="/A038676/b038676.txt">Table of n, a(n) for n = 1..1000</a>
%t A038676 ds[n_] := DeleteCases[NestWhileList[FromDigits[Rest[IntegerDigits[#]]] &, n, # > 9 &], 0]; Select[Range[2, 52]^4, Or @@ IntegerQ /@ (Rest[ds[#]]^(1/4)) &] (* _Jayanta Basu_, Jul 10 2013 *)
%t A038676 fpQ[n_]:=Module[{idn=IntegerDigits[n]},AnyTrue[Select[Table[Surd[ FromDigits[ Take[ idn,-i]],4],{i,Length[idn]-1}],#>0&],IntegerQ]]; Select[ Range[60]^4,fpQ] (* The program uses the AnyTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Aug 06 2016 *)
%Y A038676 Cf. A000583, A038677.
%K A038676 nonn,base,easy
%O A038676 1,1
%A A038676 _N. J. A. Sloane_
%E A038676 Name clarified by _Sean A. Irvine_, Jan 26 2021