OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
rev := proc (n) local nn: nn := convert(n, base, 10): add(nn[j]*10^(nops(nn)-j), j = 1 .. nops(nn)) end proc: a := proc (n) local n2: n2 := convert(n, binary): if 1 < n and `mod`(n, 2) = 1 and isprime(n) = false and rev(n2) = n2 then n else end if end proc: seq(a(n), n = 1 .. 1500); # Emeric Deutsch, Jul 24 2009
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Leroy Quet, Jul 22 2009
EXTENSIONS
Extended by Emeric Deutsch, Jul 24 2009
STATUS
approved