OFFSET
1,1
COMMENTS
Corresponding values of k in A179445.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
select(p -> isprime(p) and not isprime((p-1)/10), [seq(p, p=1..10000, 10)]); # Robert Israel, Oct 25 2017
MATHEMATICA
Select[10#+1&/@Select[Range[200], !PrimeQ[#]&], PrimeQ] (* Harvey P. Dale, Aug 17 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jul 14 2010
EXTENSIONS
More terms from Harvey P. Dale, Aug 17 2017
STATUS
approved