This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A114025 #8 Mar 20 2015 23:21:39
%S A114025 2,7,5,17,71,23,2,53,151,191,181,61,47,61,163,373,23,29,179,167,353,
%T A114025 691,37,7,79,43,7,73,683,757,1259,433,113,1523,643,19,73,383,1907,89,
%U A114025 2423,457,223,2713,71,3253,191,17,1069,353,1481,1433,787,1009,1753,557,3001
%N A114025 Least prime such that the n-th partial concatenation is a multiple of the n-th prime.
%C A114025 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_
%e A114025 2 divides 2, 3 divides 27, 5 divides 275.
%t A114025 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_ *)
%Y A114025 See A133566 for another version.
%Y A114025 Cf. A100759, A095242, A114026.
%K A114025 base,nonn
%O A114025 1,1
%A A114025 _Amarnath Murthy_, Nov 13 2005
%E A114025 More terms from _Robert G. Wilson v_, Nov 19 2005
%E A114025 Definition corrected by _David Wasserman_, Mar 04 2008