OFFSET
1,3
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
15 is in the sequence because 15_10=1111_2 and 1+1+1+1=4 is composite.
MATHEMATICA
Select[Range[200], !PrimeQ[DigitCount[#, 2, 1]]&] (* Harvey P. Dale, Jan 21 2013 *)
PROG
(PARI) for(n=0, 200, b=binary(n); if(!isprime(sum(m=1, matsize(b)[2], b[m])), print1(n, ", ")))
(Haskell)
a084345 n = a084345_list !! (n-1)
a084345_list = filter ((== 0) . a010051' . a000120) [0..]
-- Reinhard Zumkeller, Aug 28 2013, Nov 16 2012
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov Jun 22 2003
EXTENSIONS
More terms from Rick L. Shepherd, Jun 23 2003
Term 0 added by Michel Marcus, Aug 26 2013
b-file adjusted by Reinhard Zumkeller, Aug 28 2013
STATUS
approved