This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A117690 #13 Aug 30 2025 10:05:37
%S A117690 0,1,1000,27000,216000,970299,1000000,1860867,2146689,4019679,5000211,
%T A117690 10077696,14348907,21717639,26198073,27000000,27818127,29503629,
%U A117690 36926037,37933056,57960603,62099136,67917312,80621568,84027672,106496424,116930169,123505992
%N A117690 Cubes for which both the sum of the digits and the product of the digits are squares.
%e A117690 2146689 is in the sequence because it is a cube and (1)the sum of its digits 2+1+4+6+6+8+9=36 is a square and (2)the product of its digits 2*1*4*6*6*8*9=20736 is also a square.
%t A117690 okQ[n_]:=Module[{idn=IntegerDigits[n]},IntegerQ[Sqrt[Total[idn]]] && IntegerQ[Sqrt[Times@@idn]]]; Select[Range[0,500]^3,okQ] (* _Harvey P. Dale_, Aug 24 2011 *)
%Y A117690 Cf. A000290, A000578, A004164, A053668.
%K A117690 nonn,base,changed
%O A117690 0,3
%A A117690 Luc Stevens (lms022(AT)yahoo.com), Apr 12 2006
%E A117690 Corrected (by inserting a(15)=26198073) by _Harvey P. Dale_, Aug 24 2011
%E A117690 More terms from _Jason Yuen_, Aug 30 2025