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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A105226 Smallest prime p such that the number represented by the decimal string 1p1 is a product of n distinct primes. 0
 2, 3, 11, 13, 157, 8209, 31231, 1608697, 112328569, 10247900863, 21926946241, 1256492087941, 101017938127207, 10019534732186179, 103820246231814111793, 6892441533761699205127, 125403143123000002762783, 1008021783580817338005763 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 LINKS EXAMPLE a(1) = 3 because 131 is prime. a(2) = 11 since 1111 = 11*101. a(3) = 13 because 1131 = 3*13*29. a(4) = 157 since 11571 = 3*7*19*29. a(5) = 8209 since 182091 = 3*7*13*23*29. a(6) = 31231 since 1312311 = 3*7*11*13*19*23. MATHEMATICA pf[n_] := Flatten[ Table[ #[[1]], {#[[2]]}] & /@ FactorInteger[n]]; t = Table[0, {9}]; Do[ a = pf[ FromDigits[ Join[{1}, IntegerDigits[ Prime[n]], {1}]]]; If[a == Union[a], l = Length[a]; If[ t[[l]] == 0, t[[l]] = Prime[n]]], {n, 10^7}] (* also for n>2 I used *) (* Robert G. Wilson v, Apr 16 2005 *) (* first do *) Needs["DiscreteMath`Combinatorica`"] (* then *) Table[ FromDigits[ Take[ IntegerDigits[ Select[ Sort[ Times @@@ KSubsets[ Drop[ Prime[ Range[25]], {1, 3, 2}], n]], Take[ RotateRight[ IntegerDigits[ # ]], 2] == {1, 1} && IntegerDigits[ # ][[2]] != 0 && PrimeQ[ FromDigits[ Drop[ RotateRight[ IntegerDigits[ # ]], 2]]] &][[1]]], {2, -2}]], {n, 3, 20}] CROSSREFS Cf. A069687. Sequence in context: A057324 A139052 A076491 * A139021 A176038 A293827 Adjacent sequences:  A105223 A105224 A105225 * A105227 A105228 A105229 KEYWORD nonn,base AUTHOR Lekraj Beedassy, Apr 14 2005 EXTENSIONS Extended by Robert G. Wilson v, Apr 16 2005 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 May 29 14:18 EDT 2020. Contains 334700 sequences. (Running on oeis4.)