OFFSET
1,1
COMMENTS
121 is the only square of prime in this sequence.
LINKS
EXAMPLE
20 is a term because it is not of the form m + sum of digits of m for any m < 20, so 20 is Colombian and 20 = (22)_9, so 20 is also Brazilian.
MATHEMATICA
brazQ[n_] := Module[{b = 2, found = False}, While[b < n - 1 && Length[Union[IntegerDigits[n, b]]] > 1, b++]; b < n - 1]; n = 700; Select[Complement[Range[n], Union @ Table[Plus @@ IntegerDigits[k] + k, {k, 1, n}]], brazQ] (* Amiram Eldar, Apr 08 2020 after T. D. Noe at A125134 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bernard Schott, Apr 08 2020
STATUS
approved