login
This site is supported by donations to The OEIS Foundation.

 

Logo

Invitation: celebrating 50 years of OEIS, 250000 sequences, and Sloane's 75th, there will be a conference at DIMACS, Rutgers, Oct 9-10 2014.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A104898 Numbers n such that phi(n)=phi(d_1)^phi(d_1)*phi(d_2)^phi(d_2)* ...*phi(d_k)^phi(d_k) where d_1 d_2 ... d_k is the decimal expansion of n. 1
1, 2, 34, 512, 34816, 421192, 1213173, 1311471, 2291616, 2622942, 7624162, 12333173, 13421568, 15221171, 27132646, 41134392, 49131264, 76142643, 121676464, 124127822, 143327424, 143942616, 149424426, 166467132, 194626614 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Next term is greater than 3*10^8.

LINKS

Table of n, a(n) for n=1..25.

EXAMPLE

227826131 is in the sequence because phi(227826131) = phi(2)^phi(2) * phi(2)^phi(2) * phi(7)^phi(7) * phi(8)^phi(8) * phi(2)^phi(2) * phi(6)^phi(6) * phi(1)^phi(1) * phi(3)^phi(3)) * phi(1)^phi(1).

MATHEMATICA

Do[h=IntegerDigits[m]; l=Length[h]; If[Min[h]>0&&EulerPhi[m]==Product[ EulerPhi[h[[k]]]^EulerPhi[h[[k]]], {k, l}], Print[m]], {m, 300000000}]

CROSSREFS

Cf. A103113, A058627.

Sequence in context: A180764 A228654 A005261 * A218432 A071799 A098704

Adjacent sequences:  A104895 A104896 A104897 * A104899 A104900 A104901

KEYWORD

base,nonn

AUTHOR

Farideh Firoozbakht, Mar 29 2005

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified August 23 13:19 EDT 2014. Contains 245995 sequences.