The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 56th year, we are closing in on 350,000 sequences, and we’ve crossed 9,700 citations (which often say “discovered thanks to the OEIS”).

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A066734 Numbers such that the nonzero product of the digits of its 4th power is also a 4th power. 1
 1, 118, 144, 211, 427, 739, 1836, 8958, 19638, 20528, 21454, 22359, 24533, 26022, 27378, 29648, 33038, 33204, 33648, 40226, 40262, 46416, 47181, 47198, 49314, 53133, 55273, 55792, 59559, 59754, 60924, 61292, 61763, 61933, 66408, 68302 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS Harry J. Smith, Table of n, a(n) for n = 1..1000 EXAMPLE 118 is in the sequence because the 4th power of 118 is 193877776 and 1*9*3*8*7*7*7*7*6 = 3111696 = 42^4. MATHEMATICA Do[a = Apply[Times, IntegerDigits[n^2]]; If[ a != 0 && IntegerQ[a^(1/2)], Print[n]], {n, 1, 10^4} ] d4pQ[n_]:=Module[{t=Times@@IntegerDigits[n^4]}, t!=0&&IntegerQ[Surd[t, 4]]]; Select[Range[70000], d4pQ] (* Harvey P. Dale, Feb 20 2018 *) PROG (PARI) ProdD(x)= { local(p=1); while (x>9 && p>0, p*=x%10; x\=10); return(p*x) } { n=0; for (m=1, 10^10, if ((p=ProdD(m^4)) == 0 || (s=sqrt(p)) % 1 , next); if (sqrt(s)%1 == 0, write("b066734.txt", n++, " ", m); if (n==1000, return)) ) } \\ Harry J. Smith, Mar 20 2010 CROSSREFS Cf. A067071. Sequence in context: A066923 A039556 A095627 * A146337 A165462 A261464 Adjacent sequences:  A066731 A066732 A066733 * A066735 A066736 A066737 KEYWORD nonn,base AUTHOR Robert G. Wilson v, Jan 15 2002 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 December 2 05:01 EST 2021. Contains 349437 sequences. (Running on oeis4.)