login
A167711
Numbers such that sum of digits is one more than a prime.
1
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
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
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Edited by Charles R Greathouse IV, Nov 12 2009
STATUS
approved