A141641 Digital sum of n is an even composite.

4, 6, 8, 13, 15, 17, 19, 22, 24, 26, 28, 31, 33, 35, 37, 39, 40, 42, 44, 46, 48, 51, 53, 55, 57, 59, 60, 62, 64, 66, 68, 71, 73, 75, 77, 79, 80, 82, 84, 86, 88, 91, 93, 95, 97, 99, 103, 105, 107, 109, 112, 114, 116, 118, 121, 123, 125, 127, 129, 130, 132, 134, 136, 138

Offset

1,1

Comments

A059841(A007953(a(n)))*A066247(A007953(a(n))) = 1. [From Reinhard Zumkeller, Apr 10 2010]

Links

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

Mathematica

dsecQ[n_]:=Module[{ds=Total[IntegerDigits[n]]}, EvenQ[ds]&&CompositeQ[ds]]; Select[Range[200], dsecQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 14 2019 *)

Crossrefs

Sequence in context: A273938 A121613 A008438 * A145284 A023560 A340960

Adjacent sequences: A141638 A141639 A141640 * A141642 A141643 A141644

Keyword

nonn,base,easy,less

Author

Juri-Stepan Gerasimov, Sep 03 2008

Extensions

Corrected by Charles R Greathouse IV, Mar 26 2010

Status

approved