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
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
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