This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A038676 Fourth powers ending in a (different) fourth power. 1
 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 (list; graph; refs; listen; history; text; internal format)
 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. A038677. Sequence in context: A237464 A233023 A236989 * A016840 A128832 A085877 Adjacent sequences:  A038673 A038674 A038675 * A038677 A038678 A038679 KEYWORD nonn,base,easy AUTHOR STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 25 03:50 EDT 2019. Contains 321450 sequences. (Running on oeis4.)