A242139 Decimal equivalents of A242138.

5, 9, 10, 17, 18, 21, 27, 33, 34, 36, 42, 45, 51, 54, 65, 66, 68, 73, 85, 99, 102, 119, 129, 130, 132, 136, 146, 153, 165, 170, 187, 195, 198, 204, 219, 221, 231, 238, 257, 258, 260, 264, 273, 292, 297, 325, 330, 341, 363, 365, 387, 390, 396, 429, 438, 455

Offset

1,1

Links

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

Prog

(PARI) isvper(v) = {nv = #v; if (isprime(nv), return (0)); fordiv(nv, d, if ((d > 1) && (d < nv), dv = vector(d, i, v[i]); pdv = []; for (k=1, nv/d, pdv = concat(pdv, dv)); if (pdv == v, return (1)); ); ); return (0); }
isok(n) = {vn = binary(n); if (vecmin(vn) == vecmax(vn), return (0)); if (isvper(vn), return (1)); nbmax = #vn; for (k=1, nbmax, vn = concat(0, vn); if (isvper(vn), return (1)); ); return (0); } \\ Michel Marcus, Aug 25 2014

Crossrefs

Sequence in context: A164709 A212314 A136318 * A216765 A117771 A227853

Adjacent sequences: A242136 A242137 A242138 * A242140 A242141 A242142

Keyword

nonn,base

Author

Felix Fröhlich, May 05 2014

Extensions

Missing terms 99, 102, 119 added and more terms from Michel Marcus, Aug 25 2014

Status

approved