A373116 Fibonacci numbers whose digits product is a positive perfect power (A001597).
1, 8, 55, 144, 4181, 17711, 196418, 1346269, 259695496911122585
Offset: 1
Examples
196418 is a term, because Fibonacci(27) = 196418 and the product of its digits is 1*9*6*4*1*8 = 12^3.
Programs
-
Mathematica
powQ[n_] := n == 1 || GCD @@ FactorInteger[n][[;; , 2]] > 1; Select[Fibonacci[Range[2, 100]], powQ[Times @@ IntegerDigits[#]] &] (* Amiram Eldar, May 25 2024 *)
Comments