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-7 of 7 results.

A247876 Least prime factor of A247682.

Original entry on oeis.org

7, 5, 5, 7, 13, 5, 7, 5, 19, 5, 11, 17, 5, 7, 5, 11, 13, 7, 5, 19, 5, 7, 23, 11, 5, 13, 7, 5, 11, 5, 19, 17, 13, 5, 7, 29, 5, 7, 5, 13, 5, 7, 37, 5, 7, 5, 31, 11, 23, 5, 17, 29, 5, 7, 11, 5, 7, 5, 43, 11, 5, 7, 19, 5, 37, 31, 7, 5, 29, 13, 5, 17, 5, 11, 7, 19, 23, 5, 13, 7, 5, 11, 17, 5, 7, 31, 5, 29, 19, 7, 47, 5, 23, 5, 41, 13
Offset: 1

Views

Author

Odimar Fabeny, Sep 25 2014

Keywords

Links

Crossrefs

Cf. A056608, A247682.

A247901 First differences of A247682.

Original entry on oeis.org

18, 90, 18, 18, 54, 54, 36, 72, 18, 18, 54, 18, 36, 54, 36, 18, 18, 18, 54, 36, 18, 18, 18, 36, 18, 36, 36, 72, 18, 36, 18, 18, 18, 36, 36, 18, 72, 18, 36, 54, 18, 54, 18, 54, 36, 18, 18, 18, 36, 36, 18, 36, 36, 18, 36, 72, 18, 36, 36, 18, 18, 54, 18, 18, 18, 18, 36, 36, 36, 18, 18, 72, 18, 18, 18, 18, 18, 36, 36, 18, 36
Offset: 1

Views

Author

Odimar Fabeny, Sep 26 2014

Keywords

Comments

All terms have digital root equal to 9.

Links

Crossrefs

Cf. A247682.

A247676 Odd composite numbers congruent to 2 modulo 9.

Original entry on oeis.org

65, 119, 155, 209, 245, 299, 335, 371, 407, 425, 497, 515, 533, 551, 605, 623, 695, 713, 731, 749, 767, 785, 803, 875, 893, 965, 1001, 1037, 1055, 1073, 1127, 1145, 1199, 1235, 1253, 1271, 1325, 1343, 1379, 1397, 1415, 1469, 1505, 1541, 1577, 1595, 1631, 1649
Offset: 1

Views

Author

Odimar Fabeny, Sep 22 2014

Keywords

Comments

Subsequence of A017185 (9n+2).
Composites == 11 mod 18. - Robert Israel, Sep 24 2014

Links

Crossrefs

Cf. A017185, A247678, A247679, A247681, A247682, A247683.

Programs

  • Maple
    remove(isprime,[seq(18*k+11,k=1..1000)]); # Robert Israel, Sep 24 2014
  • Mathematica
    Select[18Range[100] + 11, Not[PrimeQ[#]] &] (* Alonso del Arte, Sep 25 2014 *)
Select[Range[11,2000,18],CompositeQ] (* Harvey P. Dale, Oct 29 2023 *)
  • PARI
    lista(nn) = {forcomposite(n=1, nn, if ((n % 2) && ((n % 9) == 2), print1(n, ", ")););} \\ Michel Marcus, Sep 22 2014

A247678 Odd composite numbers congruent to 4 modulo 9.

Original entry on oeis.org

49, 85, 121, 175, 247, 265, 301, 319, 355, 391, 427, 445, 481, 517, 535, 553, 589, 625, 679, 697, 715, 805, 841, 895, 913, 931, 949, 985, 1003, 1057, 1075, 1111, 1147, 1165, 1183, 1219, 1255, 1273, 1309, 1345, 1363, 1417, 1435, 1507, 1525, 1561, 1615, 1633
Offset: 1

Views

Author

Odimar Fabeny, Sep 22 2014

Keywords

Links

Crossrefs

Cf. A017209 (9n + 4, supersequence of this sequence), A247676, A247679, A247681, A247682, A247683.

Programs

  • Mathematica
    Select[18Range[125] + 13, Not[PrimeQ[#]] &] (* Alonso del Arte, Sep 24 2014 *)
Select[Range[13,1700,18],CompositeQ] (* Harvey P. Dale, Aug 21 2024 *)
  • PARI
    lista(nn) = {forcomposite(n=1, nn, if ((n % 2) && ((n % 9) == 4), print1(n, ", ")); ); } \\ Michel Marcus, Sep 22 2014

A247679 Composite numbers congruent to 17 modulo 18.

Original entry on oeis.org

35, 125, 143, 161, 215, 287, 305, 323, 341, 377, 395, 413, 485, 539, 575, 611, 629, 665, 737, 755, 791, 845, 899, 917, 935, 989, 1007, 1025, 1043, 1079, 1115, 1133, 1169, 1205, 1241, 1295, 1313, 1331, 1349, 1385, 1403, 1421, 1457, 1475
Offset: 1

Views

Author

Odimar Fabeny, Sep 22 2014

Keywords

Comments

Subsequence of A017257 (9n + 8).

Links

Crossrefs

Cf. A017257, A247676, A247678, A247681, A247682, A247683.

Programs

  • Mathematica
    Select[18Range[100] - 1, Not[PrimeQ[#]] &] (* Alonso del Arte, Sep 25 2014 *)
Select[Range[17,1500,18],CompositeQ] (* Harvey P. Dale, Jun 19 2022 *)
  • PARI
    lista(nn) = {forcomposite(n=1, nn, if ((n % 2) && ((n % 9) == 8), print1(n, ", ")); ); } \\ Michel Marcus, Sep 22 2014

Formula

a(n) ~ 18n. - Charles R Greathouse IV, Sep 27 2014

A247681 Odd nonprimes congruent to 1 modulo 9.

Original entry on oeis.org

1, 55, 91, 145, 217, 235, 253, 289, 325, 343, 361, 415, 451, 469, 505, 559, 595, 649, 667, 685, 703, 721, 775, 793, 847, 865, 901, 955, 973, 1027, 1045, 1081, 1099, 1135, 1189, 1207, 1225, 1243, 1261, 1315, 1333, 1351, 1369, 1387, 1405
Offset: 1

Views

Author

Odimar Fabeny, Sep 22 2014

Keywords

Comments

Subsequence of A017173.

Links

Crossrefs

Cf. A017173, A247676, A247678, A247679, A247682, A247683, A247900 (first differences).

Programs

  • Mathematica
    Select[18Range[0, 99] + 1, Not[PrimeQ[#]] &] (* Alonso del Arte, Sep 25 2014 *)
Select[Range[1,1500,18],!PrimeQ[#]&] (* Harvey P. Dale, Mar 07 2018 *)
  • PARI
    lista(nn) = {forcomposite(n=1, nn, if ((n % 2) && ((n % 9) == 1), print1(n, ", ")); ); } \\ Michel Marcus, Sep 22 2014

A247683 Odd composite numbers congruent to 7 modulo 9.

Original entry on oeis.org

25, 115, 133, 169, 187, 205, 259, 295, 385, 403, 475, 493, 511, 529, 565, 583, 637, 655, 745, 763, 781, 799, 817, 835, 871, 889, 925, 943, 961, 979, 1015, 1105, 1141, 1159, 1177, 1195, 1267, 1285, 1339, 1357, 1375, 1393, 1411, 1465, 1501
Offset: 1

Views

Author

Odimar Fabeny, Sep 22 2014

Keywords

Comments

Subsequence of A017245 (9n + 7).

Links

Crossrefs

Cf. A017245, A247676, A247678, A247679, A247681, A247682.

Programs

  • Mathematica
    Select[18Range[100] + 7, Not[PrimeQ[#]] &] (* Alonso del Arte, Sep 25 2014 *)
Select[Range[1,1501,2],CompositeQ[#]&&Mod[#,9]==7&] (* or *) Select[Range[7,1501,18],CompositeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 31 2021 *)
  • PARI
    lista(nn) = {forcomposite(n=1, nn, if ((n % 2) && ((n % 9) == 7), print1(n, ", ")); ); } \\ Michel Marcus, Sep 22 2014
Showing 1-7 of 7 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.