A114025 Least prime such that the n-th partial concatenation is a multiple of the n-th prime.

2, 7, 5, 17, 71, 23, 2, 53, 151, 191, 181, 61, 47, 61, 163, 373, 23, 29, 179, 167, 353, 691, 37, 7, 79, 43, 7, 73, 683, 757, 1259, 433, 113, 1523, 643, 19, 73, 383, 1907, 89, 2423, 457, 223, 2713, 71, 3253, 191, 17, 1069, 353, 1481, 1433, 787, 1009, 1753, 557, 3001

Offset

1,1

Comments

In the first 750 terms, the primes 3,11,41,59,83,97,101,109,131,149,157,173,193,197,211,227, ..., have not appeared. - Robert G. Wilson v

Links

Table of n, a(n) for n=1..57.

Example

2 divides 2, 3 divides 27, 5 divides 275.

Mathematica

a[n_] := a[n] = Block[{q = Flatten[IntegerDigits /@ Table[a[i], {i, n - 1}]], p = Prime[n], k = 1}, While[Mod[FromDigits@Join[q, IntegerDigits@Prime@k], p] != 0, k++ ]; Prime[k]]; Array[a, 57] (* Robert G. Wilson v *)

Crossrefs

See A133566 for another version.

Cf. A100759, A095242, A114026.

Sequence in context: A343314 A233248 A376976 * A135566 A100759 A205448

Adjacent sequences: A114022 A114023 A114024 * A114026 A114027 A114028

Keyword

base,nonn

Author

Amarnath Murthy, Nov 13 2005

Extensions

More terms from Robert G. Wilson v, Nov 19 2005

Definition corrected by David Wasserman, Mar 04 2008

Status

approved