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.

A168529 Primes n that are concatenation of two 3-digit primes p

This page as a plain text file.
%I A168529 #18 Feb 22 2018 20:26:51
%S A168529 101107,101113,101149,101173,101197,101281,101293,101347,101359,
%T A168529 101383,101419,101449,101467,101503,101599,101641,101653,101701,
%U A168529 101719,101797,101839,101863,101929,101977,103307,103349,103409,103421,103457,103577
%N A168529 Primes n that are concatenation of two 3-digit primes p<q.
%C A168529 Or, primes of the form 10^3*p+q, p,q primes, 100<p<q<998.
%C A168529 There are exactly 1407 such primes from 101107 to 971977.
%H A168529 Andrew Howroyd, <a href="/A168529/b168529.txt">Table of n, a(n) for n = 1..1407</a> (complete sequence)
%t A168529 p3=Select[Range[100,999],PrimeQ];Le=Length@p3;Reap[Do[p=10^3*p3[[i]];Do[If[PrimeQ[n=p+p3[[k]]],Sow[n]],{k,i+1,Le}],{i,Le-1}]][[2,1]];
%o A168529 (PARI) concat(apply(p->select(n->isprime(n) && isprime(n%1000),[1000*p+p+1..1000*p+997]), select(isprime,[101..996]))) \\ _Andrew Howroyd_, Feb 22 2018
%Y A168529 Subsequence of A105184.
%K A168529 base,fini,full,nonn
%O A168529 1,1
%A A168529 _Zak Seidov_, Nov 28 2009
%E A168529 Terms a(25) and beyond in b-file corrected by _Andrew Howroyd_, Feb 22 2018