A107579 -id:A107579 - cp's OEIS frontend

A109207 Palindromic primes with digit sum = 50.

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

A158283 Prime numbers p such that 1 = abs(final digit of p - sum of all the other digits of p).

Original entry on oeis.org

23, 43, 67, 89, 113, 157, 179, 199, 223, 269, 313, 337, 359, 379, 449, 607, 719, 739, 809, 829, 919, 1013, 1033, 1103, 1123, 1213, 1237, 1259, 1279, 1303, 1327, 1439, 1459, 1549, 1619, 1709, 2003, 2069, 2089, 2113, 2137, 2179, 2203, 2269, 2339, 2539

Offset: 1

Juri-Stepan Gerasimov, Mar 15 2009

			23(1=3-2), 43(1=abs(3-4)), 67(1=abs(7-6)), 89(1=abs(9-8)), 113(1=3-(1+1)).

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

Cf. A000040, A156979.

Cf. also A062339, A062341, A062337, A062343, A107579.

ps1[n_]:=Module[{idn=IntegerDigits[n]},Abs[Last[idn]-Total[Most[idn]]] == 1]; Select[Prime[Range[400]],ps1] (* Harvey P. Dale, Jul 31 2012 *)

Entries checked by R. J. Mathar, May 19 2010

cp's OEIS Frontend

A109207 Palindromic primes with digit sum = 50.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI