OFFSET
1,1
COMMENTS
Prime numbers in A166499. [Zak Seidov, Oct 15 2009]
MATHEMATICA
Select[Table[FromDigits[{IntegerDigits[Prime[n]][[-1]], IntegerDigits[Prime[n+1]][[1]]}], {n, 300}], PrimeQ] # Zak Seidov, Oct 15 2009
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Jul 09 2003
STATUS
approved