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,1

Comments

Complement of A047791.

Links

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

Example

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

Mathematica

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

Prog

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

Crossrefs

Cf. A007953, A062028.

Cf. A010051.

Sequence in context: A322511 A171827 A322002 * A116066 A261874 A334929

Adjacent sequences: A107740 A107741 A107742 * A107744 A107745 A107746

Keyword

nonn,base

Author

Reinhard Zumkeller, May 23 2005

Status

approved