A116019 Numbers k such that sigma(k) + phi(k) is a repdigit.
1, 2, 3, 4, 10, 11, 21, 49, 186, 207, 221, 342, 406, 3324, 4443, 33324, 43375, 222221, 314000, 344032, 389924, 414806, 987652, 2222221, 190476186, 222087442, 222222221, 422720878, 2222222221, 4444444443
Offset: 1
Examples
sigma(314000)+phi(314000)=888888.
Programs
-
Mathematica
Do[If[Length[Union[IntegerDigits[EulerPhi[n] + DivisorSigma[1, n]]]]==1, Print[n]], {n, 280000000}] (* Farideh Firoozbakht, Aug 17 2006 *)
-
PARI
for(n=1,10^7,d=digits(sigma(n)+eulerphi(n));c=0;for(i=1,#d-1,if(d[i]!=d[i+1],c++;break));if(c==0,print1(n,", "))) \\ Derek Orr, Aug 01 2014
Extensions
3 more terms from Farideh Firoozbakht, Aug 17 2006
a(28)-a(30) from Donovan Johnson, Jan 16 2012
Comments