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

An Open Message to the Blog's Fans in Singapore

(Image:  Free 12 singapore icons - Iconfinder ) This past week, more views of this blog were made from Singapore than other country. To ackn...

Popular in last 30 days