login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

N. J. A. Sloane.

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.

License Agreements, Terms of Use, Privacy Policy. .

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