OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Andrzej Rotkiewicz, On some problems of W. Sierpinski, Acta Arithmetica, Vol. 21 (1972), pp. 251-259.
Wikipedia, Schinzel's Hypothesis H.
MATHEMATICA
octadec[n_]:=n(8n-7); Select[octadec[Range[1, 1000]], PowerMod[2, (# - 1), #]==1 &]
PROG
(PARI) isok(n) = (n>1) && ispolygonal(n, 18) && !isprime(n) && (Mod(2, n)^n==2); \\ Michel Marcus, Nov 29 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 29 2018
STATUS
approved