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,1

Links

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

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

Crossrefs

Cf. A000583, A038677.

Sequence in context: A237464 A233023 A236989 * A016840 A128832 A085877

Adjacent sequences: A038673 A038674 A038675 * A038677 A038678 A038679

Keyword

nonn,base,easy

Author

N. J. A. Sloane

Extensions

Name clarified by Sean A. Irvine, Jan 26 2021

Status

approved