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 A383114 #24 Jun 09 2025 14:42:02 %S A383114 357,131719,434753,475359,717379,97101103,101103107,103107109, %T A383114 109113127,139149151,151157163,157163167,163167173,167173179, %U A383114 173179181,193197199,197199211,199211223,227229233,241251257,281283293,293307311,331337347,347349353,367373379,397401409,461463467,487491499 %N A383114 Triprimes that are concatenations of three consecutive primes. %C A383114 Numbers that are the concatenation (in increasing order) of three consecutive primes and are the product of three primes, counted with multiplicity. %H A383114 Robert Israel, <a href="/A383114/b383114.txt">Table of n, a(n) for n = 1..10000</a> %e A383114 a(3) = 434753 is a term because it is the concatenation of the consecutive primes 43, 47 and 53 and 434753 = 11^2 * 3593 is the product of three primes, counted with multiplicity. %p A383114 cat3:= proc(a,b,c) %p A383114 (a*10^(1+ilog10(b))+b)*10^(1+ilog10(c))+c %p A383114 end proc: %p A383114 select(t ->numtheory:-bigomega(t)=3, [seq(cat3(ithprime(i),ithprime(i+1),ithprime(i+2)),i=1..100)]); %t A383114 p3[p_]:=FromDigits[Join[IntegerDigits[Prime[p]],IntegerDigits[Prime[p+1]],IntegerDigits[Prime[p+2]]]];Select[Array[p3,100],PrimeOmega[#]==3&] (* _James C. McMahon_, Jun 09 2025 *) %Y A383114 Intersection of A014612 and A132903. %K A383114 nonn,base %O A383114 1,1 %A A383114 _Will Gosnell_ and _Robert Israel_, May 23 2025