OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
a:=proc(n) if ithprime(n) mod 6 = 5 then ithprime(n)+2 elif ithprime(n) mod 6 = 1 then ithprime(n)-2 else 0 fi end: A:=[seq(a(n), n=3..130)]: b:=proc(n) if isprime(A[n])=false then A[n] else fi end: seq(b(m), m=1..nops(A)); # Emeric Deutsch, Jun 19 2005
MATHEMATICA
f[p_] := If[Mod[p, 6] == 5, p + 2, p - 2];
Select[f /@ Prime[Range[3, 200]], CompositeQ] (* Jean-François Alcover, Jun 22 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, May 27 2005
EXTENSIONS
More terms from Emeric Deutsch, Jun 19 2005
Offset corrected by Robert Israel, Apr 02 2018
STATUS
approved