OFFSET
1,1
COMMENTS
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).
LINKS
Giovanni Resta, Self or Colombian number, Numbers Aplenty.
Wikipédia, Nombre brésilien (in French).
EXAMPLE
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.
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bernard Schott, Jul 10 2020
STATUS
approved