A290016 Brazilian numbers which have exactly three Brazilian representations.
24, 36, 42, 54, 66, 70, 78, 88, 100, 102, 104, 105, 124, 128, 130, 135, 136, 138, 152, 154, 165, 171, 172, 174, 182, 184, 186, 189, 190, 195, 196, 225, 230, 231, 232, 238, 242, 246, 248, 250, 256, 258, 272, 282, 286, 290, 292, 296, 297, 310, 318, 322, 328, 333, 344, 345
Offset: 1
Keywords
Examples
36 = 4 * 9 = 44_8 = 3 * 12 = 33_11 = 2 * 18 = 22_19. 42 = 2 * 21 = 22_20 = 222_4 = 3 * 14 = 33_13. 124 = 4 * 31 = 44_30 = 444_5 = 2 * 62 = 22_61. 272 = 8 * 34 = 88_33 = 4 * 68 = 44_67 = 2 * 136 = 22_135.
Programs
-
Mathematica
Flatten@ Position[#, 3] &@ Table[Count[Range[2, n - 2], ?(And[Length@ # != 1, Length@ Union@ # == 1] &@ IntegerDigits[n, #] &)], {n, 350}] (* _Michael De Vlieger, Jul 30 2017 *)
Comments