Thursday, May 9, 2024

A365471 Contribution to the OEIS

 

A365471Numbers whose digits are not all primes.1
0, 1, 4, 6, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 24, 26, 28, 29, 30, 31, 34, 36, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 54, 56, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 74, 76, 78, 79, 80, 81, 82, 83, 84, 85, 86 (listgraphrefslistenhistoryedittextinternal format)
OFFSET
1,3
COMMENTS
Complement of A046034.
Union of A084984 and A365589.
LINKS
MATHEMATICA
a[n_Integer?NonNegative] := Select[Range[0, n], Not[AllTrue[MemberQ[{2, 3, 5, 7}, #] & /@ IntegerDigits@#, Identity]] &]; a[86] (* Robert P. P. McKone, Sep 13 2023 *)
Select[Range[0, 100], AnyTrue[IntegerDigits[#], !PrimeQ[#]&]&] (* Harvey P. Dale, Dec 22 2023 *)
CROSSREFS
Sequence in context: A225668 A091985 A091984 * A228651 A045762 A320985
KEYWORD
base,nonn
AUTHOR
James C. McMahon, Sep 11 2023
STATUS
approved

No comments:

Post a Comment

Top Five Dutch Mathematicians

Identifying the top five Dutch mathematicians involves evaluating their contributions to mathematics, focusing on impact, innovation, and re...

Popular in last 30 days