A039778 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A039778

phi(n) is equal to the sum of prime factors and exponents of n+1.

0

32, 38, 54, 56, 84, 20720

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

a(7) > 10^8. - Naohiro Nomoto, Jun 21 20a

a(7) > 10^9. - Michel Marcus, Jun 03 2014

a(7) > 10^12. - Giovanni Resta, Jun 11 2016

LINKS

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

EXAMPLE

phi(38)=18, 39=3^1*13^1, 3+1+13+1=18.

MATHEMATICA

Select[Range[30000], EulerPhi[#] == Plus @@ Flatten@ FactorInteger[# + 1] &] (* Giovanni Resta, Jun 11 2016 *)

PROG

(PARI) isok(n) = (f = factor(n+1)) && (sum(i=1, #f~, f[i, 2]) + sum(i=1, #f~, f[i, 1]) == eulerphi(n)); \\ Michel Marcus, Jun 03 2014

CROSSREFS

Cf. A000010, A008474.

Sequence in context: A070624 A345491 A178099 * A354422 A217060 A326112

Adjacent sequences: A039775 A039776 A039777 * A039779 A039780 A039781

KEYWORD

nonn,more

AUTHOR

Olivier Gérard

STATUS

approved