%I #7 Mar 23 2015 13:56:35
%S 401,491,701,761,911,1571,2531,2741,3011,3041,3221,3491,3701,3881,
%T 4751,5051,5171,6221,6521,7151,7691,8171,8681,9311,9941,10151,10391,
%U 10631,10781,11321,11681,12281,12401,12791,13151,13241,13781,14411,14771
%N Numbers n such that (n,n+8) forms a pair of consecutive primes ending respectively in 1 and 9.
%C For numbers n such that (n,n+2,n+6,n+8) forms a quadruplet of consecutive primes ending respectively in 1,3,7,9, see A007530.
%H Harvey P. Dale, <a href="/A141026/b141026.txt">Table of n, a(n) for n = 1..1000</a>
%t lst = Prime@ Range@ 1828; lst[[Select[Range@ 1828 - 1, Mod[ lst[[ # ]], 10] == 1 && lst[[ # ]] + 8 == lst[[ # + 1]] &]]] (* _Robert G. Wilson v_ *)
%t Transpose[Select[Partition[Prime[Range[2000]],2,1],#[[2]]-#[[1]]==8 && Mod[ #[[1]],10]==1&]][[1]] (* _Harvey P. Dale_, Mar 23 2015 *)
%K nonn,base
%O 1,1
%A _Lekraj Beedassy_, Jul 29 2008
%E Inserted 491, 1571, sorted and extended _R. J. Mathar_, Aug 04 2008