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
