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

 

Logo


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

Table of n, a(n) for n=0..17.

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 29 14:18 EDT 2020. Contains 334700 sequences. (Running on oeis4.)