The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 56th year, we are closing in on 350,000 sequences, and we’ve crossed 9,700 citations (which often say “discovered thanks to the OEIS”).

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A182150 Semiprimes that are also semiprime when their digits are sorted into nondecreasing order. 2
 4, 6, 9, 14, 15, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51, 55, 57, 58, 62, 69, 77, 85, 93, 94, 111, 115, 118, 119, 122, 123, 129, 133, 134, 143, 145, 146, 155, 158, 159, 166, 169, 177, 178, 185, 187, 202, 205, 206, 213, 219, 221, 226, 235, 237, 247, 249, 253 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS This is to A211654 primes that are also prime when their digits are sorted into nondecreasing order as A001358 semiprimes are to A000040 primes. There is an ambiguity arising from OEIS conventions, exemplified by the semiprime 303, which sorts to 033 and truncates to the semiprime 33. LINKS Alois P. Heinz, Table of n, a(n) for n = 1..1000 EXAMPLE 51 is in the sequence because, though it is a semiprime whose digits are in descending order, once the digits are sorted to be nondecreasing, it is the semiprime 15, whose digits are (left to right) nondecreasing. MAPLE h:= proc(m) local k; for k from m+1 while isprime(k) or             add(i[2], i=ifactors(k)[2])<>2 do od; k     end: a:= proc(n) option remember; local k, l, s;       k:= h(a(n-1));       do l:= sort(convert(k, base, 10));          s:= add(l[i]*10^(nops(l)-i), i=1..nops(l));          if h(s-1)=s then return k else k:=h(k) fi       od     end: a(0):=0: seq(a(n), n=1..100);  # Alois P. Heinz, Apr 22 2012 MATHEMATICA Select[Range[300], PrimeOmega[#]==2&&PrimeOmega[FromDigits[ Sort[ IntegerDigits[ #]]]]==2&] (* Harvey P. Dale, Nov 13 2014 *) CROSSREFS Cf. A001358, A097393, A211654. Sequence in context: A241451 A288379 A112381 * A108634 A135355 A245383 Adjacent sequences:  A182147 A182148 A182149 * A182151 A182152 A182153 KEYWORD nonn,base,easy AUTHOR Jonathan Vos Post, Apr 18 2012 EXTENSIONS More terms from Alois P. Heinz, Apr 22 2012 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified December 3 12:16 EST 2021. Contains 349462 sequences. (Running on oeis4.)
{"found_math": false, "script_math_tex": 0, "script_math_asciimath": 0, "math_annotations": 0, "math_alttext": 0, "mathml": 0, "mathjax_tag": 0, "mathjax_inline_tex": 0, "mathjax_display_tex": 0, "mathjax_asciimath": 0, "img_math": 0, "codecogs_latex": 0, "wp_latex": 0, "mimetex.cgi": 0, "/images/math/codecogs": 0, "mathtex.cgi": 0, "katex": 0, "math-container": 0, "wp-katex-eq": 0, "align": 0, "equation": 0, "x-ck12": 0, "texerror": 0}