A038676 Fourth powers ending in a (different) positive fourth power.

81, 2401, 6561, 14641, 28561, 38416, 50625, 83521, 130321, 194481, 234256, 279841, 390625, 531441, 707281, 810000, 923521, 1185921, 1500625, 1679616, 1874161, 2313441, 2825761, 3418801, 4100625, 4879681, 5308416, 5764801, 6765201, 7311616

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn
• base
• easy

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000583, A038677.

Programs

Mathematica

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 *)
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 *)

Extensions

Name clarified by Sean A. Irvine, Jan 26 2021