A175975 Numbers k with the property that k^k has exactly two 1's.
8, 12, 17, 22, 23, 27, 30
Offset: 1
Examples
8^8 = 16777216, 12^12 = 8916100448256, 17^17 = 827240261886336764177, 22^22 = 341427877364219557396646723584, 23^23 = 20880467999847912034355032910567, 27^27 = 443426488243037769948249630619149892803, 30^30 = 205891132094649000000000000000000000000000000.
Programs
-
Mathematica
Select[Range[40],DigitCount[#^#,10,1]==2&] (* Harvey P. Dale, Dec 16 2013 *)
-
Python
A175975_list = [n for n in range(1000) if str(n**n).count('1') == 2] # Chai Wah Wu, May 19 2020
Comments