A166458 Numbers k such that 10*k - (-1)^k is prime.

1, 2, 3, 6, 7, 8, 13, 14, 15, 18, 19, 20, 21, 24, 25, 27, 31, 33, 36, 38, 42, 43, 44, 48, 49, 50, 57, 60, 62, 63, 66, 69, 72, 74, 75, 81, 84, 86, 91, 92, 97, 99, 102, 103, 104, 105, 109, 115, 117, 123, 126, 128, 129, 132, 140, 144, 145, 146, 147, 150, 151, 153, 156, 157

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Example

1*10 - (-1)^1 = 11 is prime, so 1 is a term;
2*10 - (-1)^2 = 19 is prime, so 2 is a term;
3*10 - (-1)^3 = 31 is prime, so 3 is a term;
4*10 - (-1)^4 = 39 = 3*13, so 4 is not a term.

Mathematica

Select[If[PrimeQ[10*# - (-1)^#], #] & /@ Range[6!], IntegerQ] (* G. C. Greubel, May 15 2016 *)

Crossrefs

Cf. A122869.

Sequence in context: A189137 A230548 A294375 * A189013 A242940 A127330

Adjacent sequences: A166455 A166456 A166457 * A166459 A166460 A166461

Keyword

nonn,easy

Author

Juri-Stepan Gerasimov, Oct 14 2009

Extensions

Corrected (77 removed) by R. J. Mathar, May 21 2010

Status

approved