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.

A178466 Primes prime(k) such that the concatenation prime(k+1)//prime(k) is also prime.

This page as a plain text file.
%I A178466 #24 Jul 31 2019 11:32:15
%S A178466 3,47,53,61,131,173,199,211,233,257,353,523,587,607,619,647,653,751,
%T A178466 797,971,991,997,1103,1123,1231,1381,1553,1777,1913,1973,1987,2297,
%U A178466 2333,2341,2399,2677,2861,3049,3191,3259,3607,3637,3761,3989
%N A178466 Primes prime(k) such that the concatenation prime(k+1)//prime(k) is also prime.
%C A178466 53, 211, 653, 997, ... are also in A088712.
%C A178466 The role of the two primes is swapped in comparison to A030459.
%C A178466 The result of the concatenation is in A088784.
%F A178466 a(n) = A151799(A088712(n)).
%e A178466 The prime 53 is in the sequence because the next prime is 59 and 5953 is a prime.
%p A178466 read("transforms") ;
%p A178466 for n from 1 to 600 do p := ithprime(n) ; q := nextprime(p) ; r := digcat2(q,p) ; if isprime(r) then printf("%d,",p) ; end if; end do: # _R. J. Mathar_, Jan 27 2011
%t A178466 Transpose[Select[Partition[Prime[Range[600]],2,1],PrimeQ[FromDigits[ Flatten[ IntegerDigits/@Reverse[#]]]]&]][[1]]  (* _Harvey P. Dale_, Feb 02 2011 *)
%Y A178466 Cf. A030459, A030460, A088712.
%K A178466 nonn,base
%O A178466 1,1
%A A178466 _Carmine Suriano_, Jan 27 2011