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 A037282 #8 Aug 02 2015 21:32:06 %S A037282 1,0,0,4,0,6,0,8,9,10,0,1,0,14,1,16,0,18,0,0,1,0,0,4,0,6,0,8,0,0,0,0, %T A037282 0,4,0,6,0,8,9,40,0,4,0,44,4,46,0,48,49,0,1,0,0,4,0,6,0,8,0,60,0,6,6, %U A037282 64,6,66,0,68,69,0,0,0,0,4,0,6,0,8,0,80,81,8,0,84,8,86,8,88,0,90,91,9,9,94,9 %N A037282 Scan n from left to right once, erasing any primes. %e A037282 a(7) = a(77) = 0, a(1294) = 14. %p A037282 catDigs := proc(L,i,j) local k ; add(L[k]*10^(k-i),k=i..j) ; end: A037282 := proc(n) local L,w,i,lenL,a ; L := convert(n,base,10) ; lenL := nops(L) ; for w from lenL to 1 by -1 do for i from lenL-w+1 to 1 by -1 do a := catDigs(L,i,i+w-1) ; if isprime(a) then a := catDigs(L,1,i-1)+10^(i-1)*catDigs(L,i+w,lenL) ; RETURN(A037282(a)) ; fi ; od: od: RETURN(n) ; end: seq(A037282(n),n=1..150) ; # _R. J. Mathar_, Oct 12 2007 %K A037282 nonn,base,easy %O A037282 1,4 %A A037282 _N. J. A. Sloane_ %E A037282 More terms from _R. J. Mathar_, Oct 12 2007