cp's OEIS Frontend

A154384 Odd nonprimes with odd sum of digits.

%I A154384 #13 Sep 16 2016 02:44:13
%S A154384 1,9,21,25,27,45,49,63,65,69,81,85,87,111,115,117,119,133,135,153,155,
%T A154384 159,171,175,177,195,201,203,205,207,209,221,225,243,245,247,249,261,
%U A154384 265,267,285,287,289,315,319,333,335,339,351,355,357,371,375,377,391
%N A154384 Odd nonprimes with odd sum of digits.
%H A154384 G. C. Greubel, <a href="/A154384/b154384.txt">Table of n, a(n) for n = 1..1000</a>
%e A154384 1 is an odd nonprime and has an odd sum of digits, so a(1)=1.
%e A154384 9 is an odd nonprime and has an odd sum of digits (and this is not true for any integers between 1 and 9), so a(2)=9.
%e A154384 21 is an odd nonprime, and the sum of its digits (2+1=3) is odd (and this is not true for any integers between 9 and 21), so a(3)=21, etc.
%e A154384 45 is in the sequence because it is odd, it is a nonprime and the sum of its digits (9) is odd. - _Emeric Deutsch_, Jan 21 2009
%p A154384 sd := proc (n) options operator, arrow: add(convert(n, base, 10)[j], j = 1 .. nops(convert(n, base, 10))) end proc: a := proc (n) if `mod`(n, 2) = 1 and isprime(n) = false and `mod`(sd(n), 2) = 1 then n else end if end proc: seq(a(n), n = 1 .. 400); # _Emeric Deutsch_, Jan 21 2009
%t A154384 Select[Complement[Range[1,501,2],Prime[Range[PrimePi[501]]]],OddQ[Total[IntegerDigits[#]]]&] (* _Harvey P. Dale_, Dec 11 2010 *)
%o A154384 (PARI) isok(n) = ! isprime(n) && (n % 2) && (sumdigits(n) % 2); \\ _Michel Marcus_, Sep 16 2016
%Y A154384 Odd nonprimes in A014076.
%K A154384 nonn,base
%O A154384 1,2
%A A154384 _Juri-Stepan Gerasimov_, Jan 08 2009
%E A154384 Corrected and extended by _Emeric Deutsch_, Jan 21 2009