7 lines
244 B
Text
7 lines
244 B
Text
brazilianQ[n_Integer /; n>6 ] := AnyTrue[
|
|
Range[2, n-2],
|
|
MatchQ[IntegerDigits[n, #], {x_ ...}] &
|
|
]
|
|
Select[Range[100], brazilianQ, 20]
|
|
Select[Range[100], brazilianQ@# && OddQ@# &, 20]
|
|
Select[Range[10000], brazilianQ@# && PrimeQ@# &, 20]
|