login
A102324
Primes of the form Sum[7^i, {i, 0, n}] + 1 - Mod[Sum[7^i, {i, 0, n}], 2].
1
401, 2801, 19609, 2306881201, 16148168401, 441955140976608911963170563601, 51995580380757061883555053636996009, 103277498764237935298508446601504482183281737967152502422497452803442129350499861144992195052660926412401
OFFSET
1,1
COMMENTS
a(13) has 1436 decimal digits. - Vincenzo Librandi, Jul 19 2012
LINKS
MATHEMATICA
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]
CROSSREFS
Sequence in context: A094614 A104926 A031718 * A156785 A031628 A179293
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 15 2005
EXTENSIONS
Corrected a(8). - Vincenzo Librandi, Jul 19 2012
STATUS
approved