A099081
Numbers k such that 1.2. ... .k-1.k + 1 is prime (where dot between numbers means concatenation).
Original entry on oeis.org
1, 2, 6, 30, 88
Offset: 1
6 is in the sequence because 123456+1 is prime.
-
f[n_] := Block[{p = 0, k = 1}, While[k <= n, p = 10^Floor[ Log[10, k] + 1]p + k; k++ ]; PrimeQ[p + 1]]; Do[ If[ f[n], Print[n]], {n, 1000}] (* Robert G. Wilson v, Nov 01 2004 *)
A099082
Numbers k such that 1.2. ... .k-1.k + 2 is prime (dot between numbers means concatenation).
Original entry on oeis.org
1, 5, 9, 11, 65, 159
Offset: 1
9 is in the sequence because 123456789 + 2 is prime.
-
n=0;Monitor[Parallelize[While[True,If[PrimeQ[2+ToExpression[StringJoin[ToString/@Table[k,{k,1,n}]]]],Print[n]];n++];n],n] (* J.W.L. (Jan) Eerland, Nov 19 2022 *)
A099084
Numbers k such that 1.2. ... .k-1.k + 4 is a prime (dot between numbers means concatenation).
Original entry on oeis.org
1, 3, 27, 663, 6919
Offset: 1
27 is in the sequence because 123456789101112131415161718192021222324252627 + 4 is a prime.
Showing 1-3 of 3 results.
Comments