OFFSET
1,1
EXAMPLE
169 = 13^2 is in the sequence because 6 = 2*3.
MATHEMATICA
Select[Range[100, 700], PrimeOmega[#]==PrimeOmega[FromDigits[ Rest[ Most[ IntegerDigits[ #]]]]] ==2&] (* Harvey P. Dale, Nov 22 2018 *)
PROG
(PARI)
list(lim)=my(v=List(), t); forprime(p=2, sqrt(lim), t=p; forprime(q=p, lim\t, listput(v, t*q))); vecsort(Vec(v)) \\ From A001358
delleft(a) = my(b, c); b=#Str(a); c=a\(10^(b-1)); a-c*(10^(b-1))
issemiprime(n) = n>0 && bigomega(n)==2
t=list(700); for(n=1, #t, if(issemiprime(delleft(t[n]\10)), print1(t[n], ", ")))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Colin Barker, Jan 14 2014
STATUS
approved