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,2

Links

Hiroaki Yamanouchi, Table of n, a(n) for n = 1..404 (terms a(1)-a(48) from Max Alekseyev)

Example

phi(113216152) = (1*1*3*2*1*6*1*5*2)^3, so 113216152 is in the sequence.

Mathematica

Do[If[Apply[Times, IntegerDigits[n]]^3==EulerPhi[n], Print[n]], {n, 300000000}]

Crossrefs

Cf. A068572, A153427.

Sequence in context: A175972 A175973 A265651 * A032736 A032738 A252218

Adjacent sequences: A153425 A153426 A153427 * A153429 A153430 A153431

Keyword

base,nonn

Author

Farideh Firoozbakht, Jan 02 2009

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

Status

approved