A118579 Erroneous version of A015704.
1, 2, 312, 23760, 45326160
Offset: 1
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
Reap[ Do[ If[ EulerPhi[n] + DivisorSigma[1, n] == 3 n, Print[n]; Sow[n]], {n, 0, 10^8, 2}]][[2, 1]] (* Jean-François Alcover, Feb 16 2012 *)
is(n)=eulerphi(n)+sigma(n)==3*n \\ Charles R Greathouse IV, Nov 27 2013
phi(23760) + sigma(23760) = 5760 + 89280 = 4*23760, so 23760 is in the sequence.
Select[Range[1000000], DivisorSigma[1, #] + EulerPhi[#] == 4 # &] (* David Nacin, Feb 28 2012 *)
is(n)=eulerphi(n)+sigma(n)==4*n \\ Charles R Greathouse IV, Nov 27 2013
a[n_]:=(For[m=1,DivisorSigma[1,m]+EulerPhi[m]!=n EulerPhi[m],m++ ];m);Do[Print[a[n]],{n,3,46}]
Comments