A281226 Primes p where largest digit of p minus sum of all other digits is equal to 1.

23, 43, 67, 89, 113, 131, 157, 179, 197, 241, 263, 269, 311, 337, 359, 373, 421, 449, 461, 571, 593, 607, 641, 719, 733, 751, 809, 953, 971, 1013, 1031, 1097, 1103, 1163, 1237, 1259, 1301, 1327, 1361, 1439, 1471, 1493, 1613, 1619, 1709, 1723, 1741, 1907, 2003, 2063, 2069, 2137

Offset

1,1

Links

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

Example

a(19) = 461, as 6 - (4 + 1) = 1

Mathematica

Select[Prime@ Range[10^3], Fold[#1 - #2 &, First@ #, Rest@ #] == 1 &@ Reverse@ Sort@ IntegerDigits@ # &] (* Michael De Vlieger, Feb 08 2017 *)
ldod1Q[n_]:=Module[{idn=Sort[IntegerDigits[n]]}, Last[idn]-Total[Most[ idn]] == 1]; Select[Prime[Range[400]], ldod1Q] (* Harvey P. Dale, Sep 14 2019 *)

Crossrefs

A subsequence of A280915.

Cf. A000040.

Sequence in context: A340136 A154530 A156979 * A158283 A155786 A296563

Adjacent sequences: A281223 A281224 A281225 * A281227 A281228 A281229

Keyword

nonn,base

Author

Osama Abuajamieh, Jan 18 2017

Status

approved