|
| |
|
|
A176548
|
|
Non-semiprimes whose reversal is a prime.
|
|
0
|
|
|
|
2, 3, 5, 7, 11, 13, 16, 17, 20, 30, 31, 32, 37, 50, 70, 71, 73, 76, 79, 92, 97, 98, 101, 104, 107, 110, 112, 113, 124, 125, 128, 130, 131, 136, 140, 149, 151, 152, 157, 160, 164, 167, 170, 172, 175, 179, 181, 182, 188, 191, 196, 199, 200, 300, 310, 311, 313, 316
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..58.
|
|
|
MAPLE
|
A100959 := proc(n) option remember ; if n <= 3 then n ; else for a from procname(n-1)+1 do if numtheory[bigomega](a) <> 2 then return a; end if; end do: end if: end proc: read("transforms") ; for n from 1 to 300 do c := A100959(n) ; if isprime(digrev(c)) then printf("%d, ", c) ; end if; end do: # R. J. Mathar, Apr 27 2010
|
|
|
MATHEMATICA
|
Select[Range[400], PrimeOmega[#]!=2&&PrimeQ[FromDigits[Reverse[ IntegerDigits[ #]]]]&] (* Harvey P. Dale, Jan 03 2015 *)
|
|
|
CROSSREFS
|
Cf. A100959.
Sequence in context: A084111 A171474 A323520 * A020625 A033633 A242119
Adjacent sequences: A176545 A176546 A176547 * A176549 A176550 A176551
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
Juri-Stepan Gerasimov, Apr 20 2010
|
|
|
EXTENSIONS
|
Corrected (20, 30, 50, 70, 76, 92, 110, 128, etc. inserted) by R. J. Mathar, Apr 27 2010
|
|
|
STATUS
|
approved
|
| |
|
|
