A109185 -id:A109185 - cp's OEIS frontend

A109184 Palindromic primes with digit sum 20.

929, 16661, 17471, 36263, 70607, 72227, 73037, 91019, 1074701, 1082801, 1180811, 1262621, 1328231, 1360631, 1508051, 1532351, 1630361, 1712171, 1802081, 3160613, 3218123, 7014107, 7300037, 9002009, 102383201, 102707201, 103282301

Offset: 1

Zak Seidov, Jun 22 2005

Cf. A070250 Palindromic primes with digit sum 10, A107579 Primes with digit sum = 10, A106760 Primes with digit sum = 20, A109185 Palindromic primes with digit sum 40.

Chai Wah Wu, Table of n, a(n) for n = 1..4732

Cf. A070250, A106760, A107579, A109185.

Select[Prime[Range[5940000]],PalindromeQ[#]&&Total[IntegerDigits[#]]==20&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 19 2021 *)

A109207 Palindromic primes with digit sum = 50.

Original entry on oeis.org

3998993, 7696967, 7778777, 7794977, 7868687, 7884887, 7958597, 9586859, 9758579, 9782879, 9938399, 138989831, 139969931, 148888841, 148969841, 157888751, 159929951, 166888661, 167787761, 168929861, 169666961, 174989471

Offset: 1

Zak Seidov, Jun 22 2005

Chai Wah Wu, Table of n, a(n) for n = 1..13935

Cf. A070250, A109184, A109185 (resp.) Palindromic primes with digit sum = 10, 20, 40 (resp.); A107579, A106760 (resp.) Primes with digit sum = 10, 20 (resp.).

Do[p=Join[IntegerDigits[n], Reverse[Drop[IntegerDigits[n], -1]]]; q=Plus@@p; If[PrimeQ[FromDigits[p]]&&q==50, Print[FromDigits[p]]], {n, 1, 10^7}] (* Vincenzo Librandi, Dec 18 2015 *)
Select[Prime@ Range[10^7], And[# == Reverse@ #, Total@ # == 50] &@ IntegerDigits@ # &] (* Michael De Vlieger, Dec 18 2015 *)

isok(n) = isprime(n) && (d=digits(n)) && (Vecrev(d)==d) && (sumdigits(n)==50); \\ Michel Marcus, Dec 18 2015

cp's OEIS Frontend

A109184 Palindromic primes with digit sum 20.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica