OFFSET
1,2
COMMENTS
For any prime p >= 11, if p == k mod 9 then n = p - k/2 (if k is even) or p - (k+9)/2 (if k is odd) is in the sequence. - Robert Israel, Jan 07 2015
MAPLE
map(p -> p - (p/2 mod 9), [2, seq(ithprime(i), i=5..100)]); # Robert Israel, Jan 07 2015
MATHEMATICA
Select[Range[100], PrimeQ[#+Mod[#, 9]]&] (* Ivan N. Ianakiev, Feb 01 2015 *)
PROG
(Sage) [n for n in [1..200] if is_prime(n+(1+(n-1)%9))] # Tom Edgar, Jan 05 2015
(Magma) [n: n in [1..300]| IsPrime(n+(1+(n-1)mod 9))]; // Vincenzo Librandi, Jan 15 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Gelhar, Jan 05 2015
STATUS
approved