1,1

a = Delete[Union[Table[If[PrimeQ[Sum[7^i, {i, 0, n}] + 1 - Mod[Sum[7^i, {i, 0, n}], 2]] == True, Sum[7^i, {i, 0, n}] + 1 - Mod[Sum[7^i, {i, 0, n}], 2], 0], {n, 0, 200}]], 1]

Sequence in context: A104926 A031718 A031608 this_sequence A097742 A115244 A031518

Adjacent sequences: A102321 A102322 A102323 this_sequence A102325 A102326 A102327

nonn

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 15 2005