OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
a(7)= 19 * 47= 893: '1101111101' contains '101111' (47) and 5 < 19.
PROG
(PARI) sub(a, b)=my(m=1<<(log(2*a+1)\log(2))-1); while(b>=a, if(bitand(b, m)==a, return(1)); b>>=1); 0
gpf(n)=n=factor(n)[, 1]; n[#n]
is(n)=gcd(n, 30)==1&&!isprime(n)&&sub(gpf(n), n) \\ Charles R Greathouse IV, Dec 08 2011
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Aug 08 2001
EXTENSIONS
Edited by Frank Ellermann, Feb 08 2002
STATUS
approved