OFFSET
1,1
COMMENTS
One of the divisors is 11 and the other is A132287(n).
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = 11*A132287(n).
MAPLE
rev:= proc(n) local L, i; L:= convert(n, base, 10); add(L[-i]*10^(i-1), i=1..nops(L)) end proc:
f:= proc(m) local A, i, j, k;
select(t -> isprime(t/11), [seq(seq(10^(m-1)*i + 10^(m/2)*j + rev(10^(m/2-1)*i+j), j=0 .. 10^(m/2-1)-1), i=[1, 3, 5, 7, 9])])
end proc:
seq(op(f(m)), m=2..6, 2); # Robert Israel, Jan 05 2025
PROG
(PARI) lista(nn) = {for(n=1, nn, if (ismo(n) && (bigomega(n) == 2), print1(n, ", "); ); ); } \\ where ismo is isok in A132285 \\ Michel Marcus, Nov 05 2013
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Artur Jasinski, Aug 16 2007
EXTENSIONS
More terms from Michel Marcus, Nov 05 2013
Name edited by Robert Israel, Jan 05 2025
STATUS
approved