199720105201,1

TwinPrimeQ[n_]:=If[PrimeQ[n], If[PrimeQ[n-2]||PrimeQ[n+2], True, False], False](*TwinPrimeQ*) lst={}; Do[p=LegendreP[6, n]; If[TwinPrimeQ[p], AppendTo[lst, p]], {n, 1, 22^3, 2}]; lst

Sequence in context: A104832 A105295 A104800 this_sequence A127343 A108048 A108496

Adjacent sequences: A144170 A144171 A144172 this_sequence A144174 A144175 A144176

nonn

Vladimir Orlovsky (4vladimir(AT)gmail.com), Sep 12 2008