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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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: A082591 A070624 A178099 * A217060 A240246 A167309

Adjacent sequences:  A039775 A039776 A039777 * A039779 A039780 A039781

KEYWORD

nonn,more

AUTHOR

Olivier Gérard

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 20 21:19 EST 2018. Contains 317422 sequences. (Running on oeis4.)