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