cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-6 of 6 results.

A327346 The 74 prime dates of each year of the form concatenate(day,month) without leading zeros for month (and day), sorted by date, including duplicates.

Original entry on oeis.org

11, 31, 41, 61, 71, 101, 131, 151, 181, 191, 211, 241, 251, 271, 281, 311, 13, 23, 43, 53, 73, 83, 103, 113, 163, 173, 193, 223, 233, 263, 283, 293, 313, 17, 37, 47, 67, 97, 107, 127, 137, 157, 167, 197, 227, 257, 277, 307, 317, 19, 29, 59, 79, 89, 109, 139, 149, 179, 199, 229, 239, 269, 211, 311, 811, 911, 1511, 1811, 2011, 2111, 2311, 2411, 2711, 3011
Offset: 1

Views

Author

Wolfdieter Lang, Sep 30 2019

Keywords

Comments

All these prime dates come from January, March, July, September and November, in the form d.m with no 0 in front of the months m = 1, 3, 7, and 9, with 16, 17, 16, 13 and 12 dates, respectively, which sum to 74.
There are just two duplicates, 211 (Jan. 21 and Nov. 2) and 311 (Jan. 31 and Nov. 3).

Crossrefs

Cf. A030430 (first 16 members), A030431 (17 members, starting with n = 2), A030432 (16 members starting with n = 2), A030433 (first 13 members), A167442 (12 members starting with n = 2).
Cf. A327347 (54 prime dates d.m with leading 0 for months m = 1, 3, 7, 9), A327348 (66 prime dates m.d for non-leap years), A327349 (67 prime dates, like A327348 but for leap years), A327914 (58 prime dates m.d in non-leap years, with leading 0 for d = 1..9), A327915 (59 prime dates, like A327914, but for leap years).

Programs

  • Mathematica
    Select[Flatten@ Array[Function[{m, d}, Array[FromDigits[IntegerDigits[#]~Join~m] &, d]] @@ {IntegerDigits@ #, Which[MemberQ[{4, 6, 9, 11}, #], 30, # == 2, 28, True, 31]} &, 12], PrimeQ] (* Michael De Vlieger, Oct 03 2019 *)

A327348 The 66 prime dates in each non-leap year of the form concatenate (month,day) without leading zeros for days.

Original entry on oeis.org

11, 13, 17, 19, 113, 127, 131, 23, 29, 211, 223, 227, 31, 37, 311, 313, 317, 331, 41, 43, 47, 419, 421, 53, 59, 521, 523, 61, 67, 613, 617, 619, 71, 73, 79, 719, 727, 83, 89, 811, 821, 823, 827, 829, 97, 911, 919, 929, 101, 103, 107, 109, 1013, 1019, 1021, 1031, 113, 1117, 1123, 1129, 127, 1213, 1217, 1223, 1229, 1231
Offset: 1

Views

Author

Wolfdieter Lang, Sep 30 2019

Keywords

Comments

The months m = 1, 2, ..., 12 contribute 7, 5, 6, 5, 4, 5, 5, 7, 4, 8, 4, 6 such dates respectively. This adds up to 66 prime dates. In leap years there is the additional date 229 (see A327349).

Crossrefs

Cf. A327346 (74 prime dates of the form d.m (no leading 0's for m and d)), A327347 (55 prime dates of the form d.m with leading 0's for m = 1, 3, 7, 9), A327349 (leap year case), A327914 (58 prime dates of the form m.d in non-leap years, with leading 0 for d = 1..9), A327915 (59 prime dates like A327914 but for leap years).

Programs

  • Mathematica
    Select[Flatten@ Array[Function[{m, d}, Array[FromDigits[Join[m, IntegerDigits[#]]] &, d]] @@ {IntegerDigits@ #, Which[MemberQ[{4, 6, 9, 11}, #], 30, # == 2, 28, True, 31]} &, 12], PrimeQ] (* Michael De Vlieger, Oct 03 2019 *)

A327349 The 67 prime dates in each leap year of the form concatenate (month,day) without leading zeros for days.

Original entry on oeis.org

11, 13, 17, 19, 113, 127, 131, 23, 29, 211, 223, 227, 229, 31, 37, 311, 313, 317, 331, 41, 43, 47, 419, 421, 53, 59, 521, 523, 61, 67, 613, 617, 619, 71, 73, 79, 719, 727, 83, 89, 811, 821, 823, 827, 829, 97, 911, 919, 929, 101, 103, 107, 109, 1013, 1019, 1021, 1031, 113, 1117, 1123, 1129, 127, 1213, 1217, 1223, 1229, 1231
Offset: 1

Views

Author

Wolfdieter Lang, Sep 30 2019

Keywords

Comments

In a leap year the months 1, 2, ..., 12 contribute 7, 6, 6, 5, 4, 5, 5, 7, 4, 8, 4, 6 such dates. This adds to 67 prime dates. For non-leap years see the 66 prime dates given in A327348.

Crossrefs

Cf. A327346 (74 prime dates of the form d.m (no leading 0's for m and d)), A327347 (55 prime dates of the form d.m with leading 0's for m = 1, 3, 7, 9), A327348 (non-leap year case), A327914 (58 prime dates of the form m.d in non-leap years, with leading 0 for d = 1..9), A327915 (59 prime dates like A327914 but for leap years).

Programs

  • Mathematica
    Select[Flatten@ Array[Function[{m, d}, Array[FromDigits[Join[m, IntegerDigits[#]]] &, d]] @@ {IntegerDigits@ #, Which[MemberQ[{4, 6, 9, 11}, #], 30, # == 2, 29, True, 31]} &, 12], PrimeQ] (* Michael De Vlieger, Oct 03 2019 *)

A327915 The 59 prime dates of each leap year of the form concatenate(month,day) with leading zero for days 1..9.

Original entry on oeis.org

101, 103, 107, 109, 113, 127, 131, 211, 223, 227, 229, 307, 311, 313, 317, 331, 401, 409, 419, 421, 503, 509, 521, 523, 601, 607, 613, 617, 619, 701, 709, 719, 727, 809, 811, 821, 823, 827, 829, 901, 911, 919, 929, 1009, 1013, 1019, 1021, 1031, 1103, 1109, 1117, 1123, 1129, 1201, 1213, 1217, 1223, 1229, 1231
Offset: 1

Views

Author

Wolfdieter Lang, Sep 30 2019

Keywords

Comments

In leap years all these dates come from the months January, February, ..., December, in the form m.d, with a 0 in front of the days d = 1..9, with 7, 4, 5, 4, 4, 5, 4, 6, 4, 5, 5, 6 prime dates, respectively, adding up to 59. For the corresponding leap year case with 58 prime dates see A327914.
Compared with A327349 (leap years, no 0's before days d = 1..9) one has the same differences as given in a comment in A327914 (229 appears in the present sequence and in A327349).

Crossrefs

Cf. A327346 (74 prime dates d.m without leading 0 for month), A327347 (54 prime dates d.m with leading 0 for months m = 1, 3, 7, 9), A327348 (66 prime dates m.d for non-leap years), A327349 (67 prime dates, like A327348 but for leap years), A327914 (58 prime dates, the case for non-leap years).

Programs

  • Mathematica
    Select[Flatten@ Array[Function[{m, d}, Array[FromDigits[m~Join~PadLeft[IntegerDigits[#], 2]] &, d]] @@ {IntegerDigits@ #, Which[MemberQ[{4, 6, 9, 11}, #], 30, # == 2, 29, True, 31]} &, 12], PrimeQ] (* Michael De Vlieger, Oct 03 2019 *)
fd[{m_,d_}]:=FromDigits[Flatten[{m,PadLeft[{d},2,0]}]]; Select[fd[Take[#,{2,3}]]&/@ DateRange[ {2024,1,1},{2024,12,31}],PrimeQ] (* Harvey P. Dale, Sep 01 2023 *)

A327347 The 54 prime dates of each year of the form concatenate(day,month) with leading zero for months 1, 3, 7, 9 (no leading zero for days).

Original entry on oeis.org

101, 401, 601, 701, 1201, 1301, 1601, 1801, 1901, 2801, 3001, 103, 503, 1103, 1303, 2003, 2203, 2503, 2803, 2903, 107, 307, 607, 907, 1307, 1607, 1907, 2207, 2707, 109, 409, 509, 709, 809, 1009, 1109, 1409, 1609, 1709, 2309, 2609, 2909, 211, 311, 811, 911, 1511, 1811, 2011, 2111, 2311, 2411, 2711, 3011
Offset: 1

Views

Author

Wolfdieter Lang, Sep 30 2019

Keywords

Comments

All these dates come from January, March, July, September and November, sorted this d.m way, with 11, 9, 9, 13 and 12 dates, respectively, summing to 54. Note that all September dates without leading zero of month m = 9 from A327346 survive after inserting the 0. The November dates coincide, of course.

Crossrefs

Cf. A062800 (first 11 members), A101780 (9 members, starting with n = 2), A166547 (9 members, starting with n = 2), A166560 (first 13 members), A167442 (12 members, starting with n = 2), respectively.
Cf. A327346 (74 prime dates d.m without leading 0 for month), A327348 (66 prime dates m.d for non-leap years), A327349 (67 prime dates, like A327348 but for leap years), A327914 (58 prime dates m.d for non-leap years, with leading 0 for d = 1..9), A327915 (59 prime dates, like A327914, but for leap years).

Programs

  • Mathematica
    Select[Flatten@ Map[Function[{m, d},  Array[FromDigits[IntegerDigits[#]~Join~m] &, d]] @@ {PadLeft[IntegerDigits@ #, 2], Which[MemberQ[{4, 6, 9, 11}, #], 30, # == 2, 28, True, 31]} &, Select[Range[1, 12, 2], CoprimeQ[#, 10] &]], PrimeQ] (* Michael De Vlieger, Oct 03 2019 *)

A327918 The 16 pure prime dates of each non-leap year of the form concatenate(month,day) with month and day also prime numbers.

Original entry on oeis.org

23, 211, 223, 37, 311, 313, 317, 331, 53, 523, 73, 719, 113, 1117, 1123, 1129
Offset: 1

Views

Author

Wolfdieter Lang, Oct 08 2019

Keywords

Comments

For the numbers for leap years see A327919.
Only the months February (2), March (3), May (5), July (7) and November (11) qualify. The qualifying prime days are for month m=2: 3, 5, 7, 11, 13, 17, 19, 23; for month m = 11: 3, 5, 7, 11, 13, 17, 19, 23, 29 and for months m = 3, 5, and 7: 3, 5, 7, 11, 13, 17, 19, 23, 29, 31.
The months m = 2, 3, 5, 7, 11 contribute 3, 5, 2, 2, 4 days, respectively, adding to 16.

Crossrefs

Cf. A165243 (first three terms), A165292 (first five terms), A165555 (first two terms), A167187 (first two terms), A327348 (m and d nonprime allowed), A327914 (with 0 before d = 1..9), A327919 (leap year), A327920 (pure prime dates of d.m form).
Showing 1-6 of 6 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.