A167711 Numbers such that sum of digits is one more than a prime.

3, 4, 6, 8, 12, 13, 15, 17, 21, 22, 24, 26, 30, 31, 33, 35, 39, 40, 42, 44, 48, 51, 53, 57, 59, 60, 62, 66, 68, 71, 75, 77, 80, 84, 86, 93, 95, 99, 102, 103, 105, 107, 111, 112, 114, 116, 120, 121, 123, 125, 129, 130, 132, 134, 138, 141, 143, 147, 149, 150, 152, 156, 158

Offset

1,1

Links

Table of n, a(n) for n=1..63.

Example

12 belongs to this sequence because 1+2-1=2 is prime.

Mathematica

Select[Range[158], PrimeQ[Total[IntegerDigits[#]]-1] &] (* Stefano Spezia, Apr 17 2023 *)

Crossrefs

Cf. A007953, A008864, A166567.

Sequence in context: A069357 A039893 A050115 * A037346 A250122 A243653

Adjacent sequences: A167708 A167709 A167710 * A167712 A167713 A167714

Keyword

nonn,base

Author

Juri-Stepan Gerasimov, Nov 10 2009

Extensions

Edited by Charles R Greathouse IV, Nov 12 2009

Status

approved