A244918 -id:A244918 - cp's OEIS frontend

A106773 Primes with digit sum = 40.

49999, 68899, 69997, 77899, 78889, 78979, 79699, 79987, 85999, 88789, 88897, 88969, 89599, 89689, 89779, 89797, 89959, 89977, 94999, 95989, 96799, 96979, 96997, 97789, 97879, 97987, 98689, 98779, 98869, 98887, 99679, 99787, 99859

Offset: 1

Zak Seidov, May 16 2005

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. similar sequences listed in A244918.

[p: p in PrimesUpTo(100000) | &+Intseq(p) eq 40]; // Vincenzo Librandi, Jul 09 2014

Select[Prime[Range[10000]],Total[IntegerDigits[#]]==40&] (* Harvey P. Dale, Jul 19 2012 *)

A106774 Primes with digit sum = 41.

Original entry on oeis.org

59999, 69899, 77999, 78989, 79889, 79979, 79997, 88799, 88997, 89897, 96989, 98897, 99689, 159899, 168899, 169889, 178799, 178889, 179897, 179969, 189599, 189797, 189887, 189977, 196799, 197699, 197969, 198599, 198689, 198959, 198977

Offset: 1

Zak Seidov, May 16 2005

Vincenzo Librandi, Table of n, a(n) for n = 1..4500

Cf. similar sequences listed in A244918.

[p: p in PrimesUpTo(200000) | &+Intseq(p) eq 41]; // Vincenzo Librandi, Jul 09 2014

Select[Prime[Range[25000]], Total[IntegerDigits[#]]==41 &] (* Vincenzo Librandi, Jul 09 2014 *)

A106764 Primes with digit sum = 26.

Original entry on oeis.org

1889, 1979, 1997, 2699, 2789, 2879, 2897, 2969, 3779, 3797, 4679, 4787, 4877, 4967, 5399, 5669, 5849, 5867, 5939, 6299, 6389, 6569, 6659, 6857, 6947, 6983, 7487, 7559, 7577, 7649, 7757, 7793, 7829, 7883, 7919, 7937, 8297, 8369, 8387, 8693, 8747, 8783

Offset: 1

Zak Seidov, May 16 2005

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Cf. similar sequences listed in A244918.

[p: p in PrimesUpTo(9000) | &+Intseq(p) eq 26]; // Vincenzo Librandi, Jul 08 2014

Select[Prime[Range[1300]],Total[IntegerDigits[#]]==26&]  (* Harvey P. Dale, Feb 14 2011 *)

select(x->sumdigits(x)==26, primes(1000)) \\ Michel Marcus, Jul 08 2014

a=A107579(p=1889); [next(a) for A107579.%20-%20_M.%20F.%20Hasler"> in range(50)]  # providing optional 1st arg = initial term, to "universal" code in A107579. - _M. F. Hasler, Mar 16 2022

A106766 Primes with digit sum = 29.

Original entry on oeis.org

2999, 3989, 4799, 4889, 5879, 5897, 5987, 6599, 6689, 6779, 6869, 6959, 6977, 7499, 7589, 7877, 7949, 8597, 8669, 8849, 8867, 9479, 9497, 9587, 9677, 9749, 9767, 9839, 9857, 9929, 12899, 13799, 13997, 14699, 14879, 14897, 14969, 15797, 15887, 15959

Offset: 1

Zak Seidov, May 16 2005

Different from A119892.

Vincenzo Librandi, Table of n, a(n) for n = 1..7900

Subsequence of A046704 and of A119892.
Cf. A106754.
Cf. similar sequences listed in A244918.

[p: p in PrimesUpTo(16000) | &+Intseq(p) eq 29]; // Vincenzo Librandi, Jul 08 2014

Select[Prime[Range[10000]], Total[IntegerDigits[#]]==29 &] (* Vincenzo Librandi, Jul 08 2014 *)

select(x->sumdigits(x)==29, primes(2000))

A106775 Primes with digit sum = 43.

Original entry on oeis.org

79999, 89899, 89989, 98899, 179899, 179989, 189799, 189997, 198997, 268999, 277999, 286999, 288979, 288997, 289789, 289897, 289987, 297889, 298897, 299977, 358999, 368899, 369979, 369997, 378997, 379699, 386989, 387799, 388699, 388789

Offset: 1

Zak Seidov, May 16 2005

Vincenzo Librandi, Table of n, a(n) for n = 1..5400

Cf. similar sequences listed in A244918.

[p: p in PrimesUpTo(400000) | &+Intseq(p) eq 43]; // Vincenzo Librandi, Jul 09 2014

Select[Prime[Range[35000]], Total[IntegerDigits[#]]==43 &] (* Vincenzo Librandi, Jul 09 2014 *)

A106776 Primes with digit sum = 44.

Original entry on oeis.org

98999, 99989, 179999, 188999, 189989, 198899, 199799, 199889, 288989, 289889, 297989, 298799, 299699, 299969, 377999, 379889, 379979, 379997, 389699, 389897, 397799, 398969, 399689, 399887, 468899, 469979, 477899, 479879, 487889, 487979

Offset: 1

Zak Seidov, May 16 2005

Vincenzo Librandi, Table of n, a(n) for n = 1..3850

Cf. similar sequences listed in A244918.

[p: p in PrimesUpTo(500000) | &+Intseq(p) eq 44]; // Vincenzo Librandi, Jul 09 2014

Select[Prime[Range[35000]], Total[IntegerDigits[#]]==44 &] (* Vincenzo Librandi, Jul 09 2014 *)

A106778 Primes with digit sum = 47.

Original entry on oeis.org

389999, 399899, 399989, 489989, 497999, 498989, 499979, 578999, 587999, 589997, 597899, 598799, 599699, 659999, 668999, 669989, 678989, 688799, 688889, 688979, 689699, 689789, 689879, 689987, 695999, 696989, 697979, 769799, 769997, 777989

Offset: 1

Zak Seidov, May 16 2005

All terms = 11 mod 18.

Zak Seidov, Table of n, a(n) for n = 1..7751

Cf. similar sequences listed in A244918.

[p: p in PrimesUpTo(800000) | &+Intseq(p) eq 47]; // Vincenzo Librandi, Jul 09 2014

select(n -> isprime(n) and convert(convert(n,base,10),`+`) = 47, [seq(18*n+11,n=10^4 .. 10^5)]); # Robert Israel, Jul 09 2014

Select[Prime[Range[90000]], Total[IntegerDigits[#]]==47 &] (* Vincenzo Librandi, Jul 09 2014 *)

A106780 Primes with digit sum = 50.

Original entry on oeis.org

599999, 788999, 799979, 888989, 889997, 897899, 898889, 969989, 979889, 988979, 996899, 997889, 998897, 998969, 999599, 999959, 1598999, 1699799, 1789979, 1798997, 1799969, 1859999, 1886999, 1888979, 1889969, 1896899, 1896989, 1897979, 1899797

Offset: 1

Zak Seidov, May 16 2005

Vincenzo Librandi, Table of n, a(n) for n = 1..3300

Cf. similar sequences listed in A244918.

[p: p in PrimesUpTo(1900000) | &+Intseq(p) eq 50]; // Vincenzo Librandi, Jul 09 2014

Select[Prime[Range[190000]], Total[IntegerDigits[#]]==50 &] (* Vincenzo Librandi, Jul 09 2014 *)

More terms from Vincenzo Librandi, Jul 09 2014

A106782 Primes with digit sum = 53.

Original entry on oeis.org

989999, 1799999, 1889999, 1988999, 1989899, 1989989, 1997999, 1999799, 1999889, 1999979, 2699999, 2799899, 2799989, 2879999, 2899997, 2978999, 2979989, 2988899, 2989799, 2989997, 2998997, 2999879, 2999897, 3698999, 3789899

Offset: 1

Zak Seidov, May 16 2005

There are (1, 10, 23, 43, 87, 146, 255, 408, 642) terms below (1, 2, 3, ..., 9)*10^6. Among the 960 terms below 10^7, only {8998991, 8999981, 9899891, 9988991, 9997991, 9999971} end in the digit 1, only 30 end in the digit 3, and 268 end with a digit 7. - M. F. Hasler, Mar 09 2022

Michael S. Branicky, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Vincenzo Librandi)

Cf. similar sequences listed in A244918.

[p: p in PrimesUpTo(3800000) | &+Intseq(p) eq 53]; // Vincenzo Librandi, Jul 09 2014

Select[Prime[Range[270000]],Total[IntegerDigits[#]]==53&]  (* Harvey P. Dale, Apr 17 2011 *)

select( {is_A106782(p)=sumdigits(p)==53&&isprime(p)}, primes([9e5,4e6]\1)) \\ M. F. Hasler, Mar 09 2022

from itertools import count, islice
from sympy import isprime
from sympy.utilities.iterables import multiset_permutations
def agen(b=10, sod=53): # generator for any base, sum-of-digits
    if 0 <= sod < b:
        yield sod
    nzdigs = [i for i in range(1, b) if i <= sod]
    nzmultiset = []
    for d in range(1, b):
        nzmultiset += [d]*(sod//d)
    for d in count(2):
        fullmultiset = [0]*(d-1-(sod-1)//(b-1)) + nzmultiset
        for firstdig in nzdigs:
            target_sum, restmultiset = sod - int(firstdig), fullmultiset[:]
            restmultiset.remove(firstdig)
            for p in multiset_permutations(restmultiset, d-1):
                if sum(p) == target_sum:
                    t = int("".join(map(str, [firstdig]+p)), b)
                    if isprime(t):
                        yield t
                    if p[0] == target_sum:
                        break
print(list(islice(agen(), 25))) # Michael S. Branicky, Mar 10 2022

A106783 Primes with digit sum = 55.

Original entry on oeis.org

2998999, 3899989, 3979999, 3989989, 3998899, 4789999, 4798999, 4888999, 4899997, 4987999, 4989979, 4989997, 4997899, 4997989, 4998979, 4998997, 4999879, 5599999, 5699899, 5699989, 5779999, 5789899, 5799799, 5869999

Offset: 1

Zak Seidov, May 16 2005

Vincenzo Librandi, Table of n, a(n) for n = 1..5000

Cf. similar sequences listed in A244918.

[p: p in PrimesUpTo(6000000) | &+Intseq(p) eq 55]; // Vincenzo Librandi, Jul 09 2014

Select[Prime[Range[410000]],Total[IntegerDigits[#]]==55&] (* Harvey P. Dale, Jun 22 2013 *)

cp's OEIS Frontend

A106773 Primes with digit sum = 40.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

A106774 Primes with digit sum = 41.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

A106764 Primes with digit sum = 26.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Python

A106766 Primes with digit sum = 29.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Mathematica

PARI

A106775 Primes with digit sum = 43.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

A106776 Primes with digit sum = 44.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

A106778 Primes with digit sum = 47.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Maple

Mathematica

A106780 Primes with digit sum = 50.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

Extensions