A153428 Numbers n such that phi(n) = p^3, where p is product of digits of n.
1, 14611, 141152, 2831112, 113216152, 419521121, 5342121213, 7112216125, 11191442171, 11371542112, 12192256111, 12327134121, 12432712113, 13161313512, 14132133215, 113335111416, 127131142512, 133412214117, 196112145112, 311721152134, 312118111536, 312127213125, 322631161151, 411111553831, 432122133312
Offset: 1
Examples
phi(113216152) = (1*1*3*2*1*6*1*5*2)^3, so 113216152 is in the sequence.
Links
- Hiroaki Yamanouchi, Table of n, a(n) for n = 1..404 (terms a(1)-a(48) from _Max Alekseyev_)
Programs
-
Mathematica
Do[If[Apply[Times,IntegerDigits[n]]^3==EulerPhi[n],Print[n]],{n,300000000}]
Extensions
a(6)-a(18) from Donovan Johnson, Nov 01 2010
a(19)-a(22) from Donovan Johnson, Aug 15 2013
a(23)-a(48) from Max Alekseyev, Aug 18 2013