cp's OEIS Frontend

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.

A114756 Smallest prime of the form: n successive positive integers in ascending order followed by a 7.

This page as a plain text file.
%I A114756 #14 Jan 29 2022 18:56:21
%S A114756 17,127,1237,12347,123457,56789107,456789107,3456789107,4567891011127,
%T A114756 616263646566676869707,13141516171819202122237,
%U A114756 2021222324252627282930317,151617181920212223242526277
%N A114756 Smallest prime of the form: n successive positive integers in ascending order followed by a 7.
%H A114756 Harvey P. Dale, <a href="/A114756/b114756.txt">Table of n, a(n) for n = 1..40</a>
%e A114756 a(4) = 12347, four successive positive integers 1,2,3,4 in ascending order followed by a 7.
%t A114756 a[n_]:=(For[m=1, (v={};Do[v=Join[v, IntegerDigits[k]], {k, m, m+n-1}]);!PrimeQ[10FromDigits[v]+7], m++ ];10FromDigits[v]+7);Table[a[n], {n, 14}] - Farideh Firoozbakht
%t A114756 f[n_] := Block[{t = Range@n}, While[p = FromDigits@Flatten@IntegerDigits@Join[t, {7}]; !PrimeQ@p, t++ ]; p]; Array[f, 14] (* _Robert G. Wilson v_ *)
%t A114756 Table[SelectFirst[10 FromDigits[Flatten[IntegerDigits/@#]]+7&/@ Partition[ Range[1000],n,1],PrimeQ],{n,20}] (* _Harvey P. Dale_, Jan 29 2022 *)
%Y A114756 Cf. A114754, A114755, A114757, A114758, A114759, A112716, A108145.
%K A114756 base,nonn
%O A114756 1,1
%A A114756 _Amarnath Murthy_, Jan 01 2006
%E A114756 Extended by _Robert G. Wilson v_, _Ray Chandler_ and _Farideh Firoozbakht_, Jan 02 2006