|
%I #5 Mar 30 2012 17:26:09
%S 23,71,11,31,71,13,17,37,71,11,31,71,31,71,11,71,11,71,31,71,31,11,11,
%T 31,71,73,13,73,13,73,73,73,17,17,97,97,37,97,37,17,17,97,37,79,79,19,
%U 79,19,79,79,19,79,19,71,31,11,11,31,11,11,31,71,11,31,71,31,71,31,11
%N Primes appearing as concatenation of the last digit of Prime[A086101(n)] and the first digit of Prime[A086101(n)+1].
%C Prime numbers in A166499. [_Zak Seidov_, Oct 15 2009]
%t Select[Table[FromDigits[{IntegerDigits[Prime[n]][[-1]],IntegerDigits[Prime[n+1]][[1]]}], {n,300}],PrimeQ] # _Zak Seidov_, Oct 15 2009
%Y Cf. A086101.
%K easy,nonn,base
%O 1,1
%A _Zak Seidov_, Jul 09 2003
|
