|
%I #14 Dec 21 2018 20:03:07
%S 0,1,25,36,784,1764,2916,36864,46656,82944,746496,777924,49787136,
%T 329204736,429981696,914457600,3186376704,3657830400,3749847696,
%U 3869835264,7169347584,14999390784,19297377225,22658678784,149824733184,166659897600,247669456896
%N Numbers that are the product of the squares of some subset of their digits.
%H Charlie Neder, <a href="/A061863/b061863.txt">Table of n, a(n) for n = 1..248</a> (Terms < 10^36)
%e 784 = (7.4)^2
%t Join[{0},Select[Range[100000],MemberQ[Times@@@(Subsets[IntegerDigits[#], IntegerLength[#] -1]^2),#]&]] (* To generate all of the terms of the sequence shown above, increase the "Range" to 10^11, but the program will run a very long time. *) (* _Harvey P. Dale_, Nov 25 2011 *)
%K base,nice,nonn
%O 1,3
%A _Erich Friedman_, Jun 23 2001
%E More terms from _Naohiro Nomoto_, Jun 25 2001
%E a(24)-a(27) from _Charlie Neder_, Dec 21 2018
|
