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.

Previous Showing 11-20 of 42 results. Next

A106756 Primes with digit sum = 14.

Original entry on oeis.org

59, 149, 167, 239, 257, 293, 347, 383, 419, 491, 509, 563, 617, 653, 743, 761, 941, 1049, 1193, 1229, 1283, 1319, 1373, 1409, 1427, 1481, 1553, 1571, 1607, 1733, 1823, 1913, 1931, 2039, 2129, 2237, 2273, 2309, 2381, 2417, 2543, 2633, 2741, 2903, 3083
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Comments

Or prime numbers in A114527. - Zak Seidov, May 21 2006

Links

Crossrefs

Cf. A000040 (primes), A007953 (sum of digits), A235225 (digit sum = 14).
Cf. A062339 (same for digit sum s = 4), A106755 (s = 13), A106757 (s = 16), and others listed in A244918 (s = 68).
Cf. A034690, A086793, A114527.

Programs

  • Magma
    [p: p in PrimesUpTo(4000) | &+Intseq(p) eq 14]; // Vincenzo Librandi, Jul 08 2014
  • Mathematica
    Select[Prime[Range[10000]], Total[IntegerDigits[#]]==14 &] (* Vincenzo Librandi, Jul 08 2014 *)
  • PARI
    select( {is_A106756(n)= sumdigits(n)==14 && isprime(n)}, primes([1, 3333])) \\ M. F. Hasler, Mar 09 2022

Formula

Intersection of A000040 (primes) and A235225 (digit sum = 14); also equals { p in A000040 | A007953(p) = 14 }. - M. F. Hasler, Mar 09 2022

A106757 Primes with digit sum = 16.

Original entry on oeis.org

79, 97, 277, 349, 367, 439, 457, 547, 619, 673, 691, 709, 727, 853, 907, 1069, 1087, 1249, 1429, 1447, 1483, 1609, 1627, 1663, 1753, 1861, 1933, 1951, 2239, 2293, 2347, 2383, 2437, 2473, 2617, 2671, 2707, 2833, 2851, 3049, 3067, 3229, 3319, 3373, 3391
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. A000040 (primes), A007953 (sum of digits), A235227 (digit sum = 16).
Cf. A062339 (same for digit sum s = 4), A106756 (s = 14), A106758 (s = 17), and others listed in A244918 (s = 68).
Subsequence of A062342 (primes whose sum of digits is a multiple of 8) and of A107288 (primes with sum of digits a square).

Programs

  • Magma
    [p: p in PrimesUpTo(4000) | &+Intseq(p) eq 16]; // Vincenzo Librandi, Jul 08 2014
  • Mathematica
    Reap[Do[If[16==Apply[Plus,IntegerDigits[p=Prime[n]]],Sow[p]],{n,1000}]][[2,1]] (* Zak Seidov, Oct 30 2009 *)
Select[Prime[Range[500]],Total[IntegerDigits[#]]==16&] (* Harvey P. Dale, Nov 14 2011 *)
  • PARI
    select( {is_A106757(n)= sumdigits(n)==16 && isprime(n)}, primes([1, 3333])) \\ M. F. Hasler, Mar 09 2022

Formula

Intersection of A000040 (primes) and A235227 (digit sum = 16); also equals { p in A000040 | A007953(p) = 16 }. - M. F. Hasler, Mar 09 2022

Extensions

More terms from Zak Seidov, Oct 30 2009

A107619 Primes with digit sum = 65.

Original entry on oeis.org

29999999, 39899999, 39999899, 48999989, 49898999, 49899989, 49979999, 49997999, 57899999, 57998999, 57999899, 58899989, 58989899, 58998899, 59879999, 59898899, 59898989, 59979989, 59987999, 59988989, 59999879
Offset: 1

Views

Author

Zak Seidov, May 18 2005

Keywords

Links

Crossrefs

Cf. A062339, A062341, A062343, A106754 - A106787, A107617, A107618.
Cf. Similar sequences listed in A244918.

Programs

  • Magma
    [p: p in PrimesUpTo(69000000) | &+Intseq(p) eq 65]; // Vincenzo Librandi, Jul 09 2014
  • Mathematica
    Select[Prime[Range[600000]], Total[IntegerDigits[#]]==65 &] (* Vincenzo Librandi, Jul 09 2014 *)

A106755 Primes p with digital sum equal to 13.

Original entry on oeis.org

67, 139, 157, 193, 229, 283, 337, 373, 409, 463, 571, 607, 643, 661, 733, 751, 823, 1039, 1093, 1129, 1237, 1291, 1327, 1381, 1453, 1471, 1543, 1723, 1741, 1831, 2029, 2083, 2137, 2281, 2371, 2551, 2713, 2731, 2803, 3019, 3037, 3109, 3163, 3181, 3217, 3253
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. A000040 (primes), A007953 (sum of digits), A143164 (digit sum = 13).
Cf. A062339 (same for digit sum s = 4), ..., A106754 (s = 11), A106756 (s = 14), and others listed in A244918 (s = 68).

Programs

  • Magma
    [p: p in PrimesUpTo(10000) | &+Intseq(p) eq 13]; // Vincenzo Librandi, Jul 08 2014
  • Mathematica
    Select[Prime[Range[100000]], Total[IntegerDigits[#]]==13 &] (* Vincenzo Librandi, Jul 08 2014 *)
  • PARI
    select( {is_A106755(n)=sumdigits(n)==13&&isprime(n)}, primes([1, 3333])) \\ M. F. Hasler, Mar 09 2022

Formula

Intersection of A000040 (primes) and A143164 (digit sum = 13); also equals { p in A000040 | A007953(p) = 13 }. - M. F. Hasler, Mar 09 2022

A106758 Primes with digit sum = 17.

Original entry on oeis.org

89, 179, 197, 269, 359, 449, 467, 557, 593, 647, 683, 719, 773, 809, 827, 863, 881, 953, 971, 1097, 1187, 1259, 1277, 1367, 1439, 1493, 1583, 1619, 1637, 1709, 1871, 1907, 2069, 2087, 2267, 2339, 2357, 2393, 2447, 2591, 2609, 2663, 2753, 2843, 2861, 3167
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. similar sequences listed in A244918.

Programs

  • Magma
    [p: p in PrimesUpTo(4000) | &+Intseq(p) eq 17]; // Vincenzo Librandi, Jul 08 2014
  • Mathematica
    Select[Prime[Range[10000]], Total[IntegerDigits[#]]==17 &] (* Vincenzo Librandi, Jul 08 2014 *)

A106759 Primes with digit sum = 19.

Original entry on oeis.org

199, 379, 397, 487, 577, 739, 757, 829, 883, 919, 937, 991, 1279, 1297, 1459, 1549, 1567, 1657, 1693, 1747, 1783, 1873, 2089, 2179, 2269, 2287, 2377, 2467, 2539, 2557, 2593, 2647, 2683, 2719, 2791, 2917, 2953, 2971, 3079, 3169, 3187, 3259, 3457, 3529
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. similar sequences listed in A244918.

Programs

  • Magma
    [p: p in PrimesUpTo(4000) | &+Intseq(p) eq 19]; // Vincenzo Librandi, Jul 08 2014
  • Maple
    digitsum:= n -> convert(convert(n,base,10),`+`):
select(t -> digitsum(t)=19 and isprime(t), [seq(6*n+1,n=1..10000)]); # Robert Israel, Jul 08 2014
  • Mathematica
    Select[Prime[Range[500]],Total[IntegerDigits[#]]==19&]  (* Harvey P. Dale, Mar 11 2011 *)

A106762 Primes with digit sum = 23.

Original entry on oeis.org

599, 797, 887, 977, 1499, 1697, 1787, 1877, 1949, 2399, 2579, 2687, 2777, 2939, 2957, 3299, 3389, 3659, 3677, 3767, 3929, 3947, 4289, 4397, 4649, 4793, 4919, 4937, 4973, 5099, 5189, 5279, 5297, 5387, 5477, 5639, 5657, 5693, 5783, 5927, 5981, 6089, 6197
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. similar sequences listed in A244918.

Programs

  • Magma
    [p: p in PrimesUpTo(7000) | &+Intseq(p) eq 23]; // Vincenzo Librandi, Jul 08 2014
  • Mathematica
    Select[Prime[Range[1000]], Total[IntegerDigits[#]]==23 &] (* Vincenzo Librandi, Jul 08 2014 *)
  • PARI
    select(x->sumdigits(x)==23, primes(1000)) \\ Michel Marcus, Jul 08 2014

A106763 Primes with digit sum = 25.

Original entry on oeis.org

997, 1699, 1789, 1879, 1987, 2689, 2797, 2887, 3499, 3697, 3769, 3877, 3967, 4597, 4759, 4957, 4993, 5479, 5569, 5659, 5749, 5839, 5857, 6199, 6379, 6397, 6469, 6577, 6793, 6829, 6883, 6991, 7297, 7369, 7459, 7477, 7549, 7639, 7873, 7927, 7963, 8089
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. similar sequences listed in A244918.

Programs

  • Magma
    [p: p in PrimesUpTo(8000) | &+Intseq(p) eq 25]; // Vincenzo Librandi, Jul 08 2014
  • Mathematica
    Select[Prime[Range[10000]], Total[IntegerDigits[#]]==25 &] (* Vincenzo Librandi, Jul 08 2014 *)
  • PARI
    select(x->sumdigits(x)==25, primes(1000)) \\ Michel Marcus, Jul 08 2014

A106768 Primes with digit sum = 32.

Original entry on oeis.org

6899, 8699, 8969, 9689, 9887, 16889, 16979, 17789, 17987, 18797, 18869, 18959, 19697, 19949, 24989, 25799, 25889, 25997, 26699, 26879, 26987, 27689, 27779, 28499, 28697, 28859, 28949, 29399, 29669, 29759, 29867, 32999, 35879, 35897
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. similar sequences listed in A244918.

Programs

  • Magma
    [p: p in PrimesUpTo(40000) | &+Intseq(p) eq 32]; // Vincenzo Librandi, Jul 08 2014
  • Mathematica
    Select[Prime[Range[10000]], Total[IntegerDigits[#]]==32 &] (* Vincenzo Librandi, Jul 08 2014 *)
  • PARI
    select(x->sumdigits(x)==32, primes(4000)) \\ Michel Marcus, Jul 08 2014

A106770 Primes with digit sum = 35.

Original entry on oeis.org

8999, 18899, 19889, 19979, 19997, 28979, 29789, 29879, 35999, 36899, 37799, 37889, 37997, 38699, 39779, 39869, 39887, 45989, 46889, 46997, 47699, 47969, 48779, 48869, 49499, 49697, 49787, 49877, 55799, 55889, 55997, 56897, 57689, 57977
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. similar sequences listed in A244918.

Programs

  • Magma
    [p: p in PrimesUpTo(60000) | &+Intseq(p) eq 35]; // Vincenzo Librandi, Jul 08 2014
  • Mathematica
    Select[Prime[Range[60000]], Total[IntegerDigits[#]]==35 &] (* Vincenzo Librandi, Jul 08 2014 *)
  • PARI
    select(x->sumdigits(x)==35, primes(6000)) \\ Michel Marcus, Jul 08 2014
Previous Showing 11-20 of 42 results. Next

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

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