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 31-40 of 42 results. Next

A106784 Primes with digit sum = 56.

Original entry on oeis.org

2999999, 3998999, 4799999, 4979999, 4998989, 4999889, 5789999, 5888999, 5898989, 5899979, 5899997, 5979899, 5988989, 5989889, 5998799, 5999699, 6689999, 6779999, 6799799, 6799889, 6799979, 6888989, 6889997, 6896999
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. similar sequences listed in A244918.

Programs

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

A181321 Primes with digital sum 70.

Original entry on oeis.org

189997999, 199799989, 199898899, 199997899, 199997989, 199998889, 268999999, 269998999, 278989999, 278999989, 279889999, 279988999, 287998999, 287999989, 288998989, 288999889, 288999979, 289699999, 289789999, 289889989
Offset: 1

Views

Author

Zak Seidov, Jan 26 2011

Keywords

Comments

The sequence begins with 8438 9-digit numbers.
Then there are 739572 10-digit numbers.
All terms == 7 (mod 18).

Links

Crossrefs

Cf. A073867, A111380, A181178, A181182.
Cf. similar sequences listed in A244918.

Programs

  • Magma
    [p: p in PrimesUpTo(3*10^8) | &+Intseq(p) eq 70]; // Vincenzo Librandi, Jul 09 2014
  • Mathematica
    Select[Prime[Range[3*10^8]], Total[IntegerDigits[#]]==70 &] (* Vincenzo Librandi, Jul 09 2014 *)
  • Python
    # see code in A107579 which can be used to produce this sequence by giving the initial term p = 189997999 (or 8*10**7-1, for digit sum 70). - M. F. Hasler, Mar 16 2022

A106761 Primes with digit sum = 22.

Original entry on oeis.org

499, 769, 787, 859, 877, 967, 1399, 1489, 1579, 1597, 1669, 1759, 1777, 1867, 1993, 2389, 2659, 2677, 2749, 2767, 2857, 3469, 3559, 3739, 3793, 3847, 3919, 4099, 4297, 4549, 4567, 4639, 4657, 4729, 4783, 4909, 5179, 5197, 5449, 5557, 5647, 5683, 5737
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 22]; // Vincenzo Librandi, Jul 08 2014
  • Mathematica
    Select[Prime[Range[100000]], Total[IntegerDigits[#]]==22 &] (* Vincenzo Librandi, Jul 08 2014 *)
  • PARI
    select(x->sumdigits(x)==22, primes(1000)) \\ Michel Marcus, Jul 08 2014

A106767 Primes with digit sum = 31.

Original entry on oeis.org

4999, 6997, 7699, 7789, 7879, 8599, 8689, 8779, 8887, 9679, 9697, 9769, 9787, 9859, 9949, 9967, 13999, 15889, 16699, 16879, 16987, 17599, 17959, 17977, 18679, 18787, 18859, 19489, 19597, 19687, 19759, 19777, 19867, 19993, 23899, 24799, 24889
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. similar sequences listed in A244918.

Programs

  • Magma
    [p: p in PrimesUpTo(30000) | &+Intseq(p) eq 31]; // Vincenzo Librandi, Jul 08 2014
  • Mathematica
    Select[Prime[Range[3000]],Total[IntegerDigits[#]]==31&]  (* Harvey P. Dale, Apr 01 2011 *)
  • PARI
    select(x->sumdigits(x)==31, primes(3000)) \\ Michel Marcus, Jul 08 2014

A106769 Primes with digit sum = 34.

Original entry on oeis.org

17989, 18979, 19699, 25999, 27799, 27997, 28789, 28879, 29599, 29959, 35899, 36979, 36997, 37699, 37879, 37897, 37987, 38959, 38977, 39499, 39679, 39769, 39877, 45979, 47599, 47779, 47797, 47869, 47977, 48589, 48679, 48787, 48859
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. similar sequences listed in A244918.

Programs

  • Magma
    [p: p in PrimesUpTo(50000) | &+Intseq(p) eq 34]; // Vincenzo Librandi, Jul 08 2014
  • Maple
    dmax:= 6; # to get all entries with at most dmax digits
for s from 0 to 9 do S[1,s]:= {s} od:
for s from 10 to 34 do S[1,s]:= {} od:
for d from 2 to dmax-1 do
  for s from 0 to 34 do
     S[d,s]:= `union`(seq(map(t-> 10*t+x, S[d-1,s-x]),x=0 .. min(s,9)))
  od
od:
S[dmax,34]:= `union`(seq(map(t->10*t+x, S[dmax-1,34-x]),x=0..9)):
A106769:= select(isprime,S[dmax,34]); # Robert Israel, Jun 03 2014
  • Mathematica
    Select[Prime[Range[50000]], Total[IntegerDigits[#]]==34 &] (* Vincenzo Librandi, Jul 08 2014 *)
  • PARI
    select(x->sumdigits(x)==34, primes(5000)) \\ Michel Marcus, Jul 08 2014

A106771 Primes with digit sum = 37.

Original entry on oeis.org

29989, 39799, 39979, 48799, 48889, 49789, 56989, 58699, 58789, 58897, 59779, 59797, 59887, 65899, 66889, 67699, 67789, 67987, 69499, 69697, 69859, 69877, 73999, 75979, 75997, 77689, 77797, 77977, 78697, 78787, 78877, 79399, 79579
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. similar sequence listed in A244918.

Programs

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

A106772 Primes with digit sum = 38.

Original entry on oeis.org

39989, 48989, 56999, 57899, 58889, 58979, 58997, 59699, 59879, 67979, 68699, 68879, 68897, 69779, 69959, 75989, 77699, 77969, 78779, 78797, 78887, 78977, 79589, 79697, 79769, 79967, 85889, 86969, 87797, 87869, 87887, 87959, 87977
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. similar sequences listed in A244918.

Programs

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

A106777 Primes with digit sum = 46.

Original entry on oeis.org

199999, 289999, 298999, 379999, 389989, 398989, 399979, 478999, 489799, 496999, 497899, 497989, 499879, 499897, 499969, 568999, 587989, 596899, 597889, 597997, 598789, 598987, 599779, 599869, 599959, 659899, 667999, 668989, 679699, 679879
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. similar sequences listed in A244918.

Programs

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

A106779 Primes with digit sum = 49.

Original entry on oeis.org

598999, 599899, 679999, 688999, 697999, 698899, 769999, 779899, 787999, 789979, 798799, 799789, 868999, 869899, 869989, 878989, 879799, 879979, 886999, 887989, 888799, 888997, 889699, 889879, 898897, 898987, 899779, 967999, 969889, 978799
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. similar sequences listed in A244918.

Programs

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

A106781 Primes with digit sum = 52.

Original entry on oeis.org

799999, 998989, 999979, 1789999, 1798999, 1979899, 1989979, 1997899, 1999969, 2599999, 2699989, 2797999, 2798899, 2798989, 2878999, 2889979, 2897989, 2898979, 2969899, 2979997, 2986999, 2987989, 2989879, 2995999, 2996899, 2997997, 3499999, 3599899, 3679999, 3788989, 3789889
Offset: 1

Views

Author

Zak Seidov, May 16 2005

Keywords

Links

Crossrefs

Cf. similar sequences listed in A244918.

Programs

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

Extensions

More terms from Vincenzo Librandi, Jul 09 2014
Previous Showing 31-40 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.