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.

A089712 Smallest prime as a concatenation k and k-n.

This page as a plain text file.
%I A089712 #5 Aug 13 2017 21:46:23
%S A089712 11,43,31,41,73,61,71,103,113,101,199,3019,131,163,151,227,193,181,
%T A089712 191,223,211,3413,3917,241,251,283,271,281,313,367,311,409,331,5623,
%U A089712 373,383,5519,5417,457,401,433,421,431,463,6521,461,5711,503,491,523,577,521
%N A089712 Smallest prime as a concatenation k and k-n.
%C A089712 a(17) = 181, obtained as a concatenation of 18 followed by 18 - 17 = 1.
%p A089712 ds:=proc(s) local j: RETURN(add(s[j]*10^(j-1),j=1..nops(s))): end: a:=proc(n) local k,m: for k from n+1 do m:=ds([op(convert(k-n,base,10)),op(convert(k,base,10))]): if isprime(m) then RETURN(m) fi od: end: seq(a(n),n=0..60); # C. Ronaldo
%K A089712 base,nonn
%O A089712 1,1
%A A089712 _Amarnath Murthy_, Nov 17 2003
%E A089712 Corrected and extended by C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 25 2004