A107743 Numbers m such that m+(digit sum of m) is a composite number.

2, 3, 4, 5, 6, 7, 8, 9, 12, 15, 17, 18, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 33, 36, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 54, 55, 57, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 72, 74, 75, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 93

Offset: 1

Author

Reinhard Zumkeller, May 23 2005

Keywords

• nonn
• base

Comments

Complement of A047791.

Examples

			A062028(21)=21+(2+1)=24=2*2*2*3, therefore 21 is a term.
		

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A007953, A062028.

Cf. A010051.

Programs

Haskell

a107743 n = a107743_list !! (n-1)
a107743_list = filter ((== 0) . a010051' . a062028) [1..]
-- Reinhard Zumkeller, Sep 27 2014

Mathematica

Select[Range[100],CompositeQ[#+Total[IntegerDigits[#]]]&] (* Harvey P. Dale, Oct 12 2016 *)