OFFSET
1,1
COMMENTS
Rotkiewicz proved that under Schinzel's Hypothesis H this sequence is infinite.
The corresponding indices of the tetradecagonal numbers are 73, 101, 277, 293, 337, 349, 353, 449, 577, 677, 853, 911, 929, 953, 1061, 1229, 1453, 1489, 1609, 1621, 1637, 1669, 1861, 1889, 1993, 1999, ...
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)
Andrzej Rotkiewicz, On some problems of W. Sierpinski, Acta Arithmetica, Vol. 21 (1972), pp. 251-259.
Wikipedia, Schinzel's Hypothesis H.
MATHEMATICA
tetradec[n_] := n(6n-5); Select[tetradec[Range[1, 1000]], PowerMod[2, (# - 1), #]==1 &]
Select[PolygonalNumber[14, Range[2400]], PowerMod[2, #-1, #]==1&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 11 2018 *)
PROG
(PARI) isok(n) = ispolygonal(n, 14) && (Mod(2, n)^n==2) && !isprime(n) && (n>1); \\ Michel Marcus, Nov 28 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 27 2018
STATUS
approved