|
%I #21 Dec 12 2020 04:55:36
%S 8,10,12,13,14,15,16,18,21,22,24,26,27,28,30,32,33,34,35,36,38,39,40,
%T 43,44,45,46,48,50,51,52,54,55,56,57,58,60,62,63,65,66,68,69,70,72,73,
%U 74,76,77,78,80,81,82,84,85,87,88,90,91,92,93,94,95,96,98,99,100
%N Integers that are Brazilian and not Colombian.
%C There are no squares of primes in the data (all squares of primes are not Brazilian except for 121 that is Brazilian, but 121 is Colombian).
%H Giovanni Resta, <a href="http://www.numbersaplenty.com/set/self_number/">Self or Colombian number</a>, Numbers Aplenty.
%H Wikipédia, <a href="https://fr.wikipedia.org/wiki/Nombre_br%C3%A9silien">Nombre brésilien</a> (in French).
%H <a href="/index/Br#Brazilian_numbers">Index to sequences related to Brazilian Numbers</a>.
%H <a href="/index/Coi#Colombian">Index to sequences related to Colombian Numbers</a>.
%e 15 is a term because 15 = 12 + (sum of digits of 12), so 15 is not Colombian and 15 = 33_4, so 15 is Brazilian.
%t brazQ[n_] := Module[{b = 2, found = False}, While[b < n - 1 && Length[Union[ IntegerDigits[n, b]]] > 1, b++]; b < n - 1]; n = 100; Select[Union@Table[Plus @@ IntegerDigits[k] + k, {k, 1, n}], # <= n && brazQ[#] &] (* _Amiram Eldar_, Jul 10 2020 *)
%Y Intersection of A125134 (Brazilian) and A176995 (not Colombian).
%Y Cf. A003052 (Colombian), A333858 (Brazilian and Colombian), this sequence (Brazilian not Colombian), A336144 (Colombian not Brazilian).
%K nonn,base
%O 1,1
%A _Bernard Schott_, Jul 10 2020
|
