OFFSET
1,1
COMMENTS
Rotkiewicz proved that under Schinzel's Hypothesis H this sequence is infinite.
The corresponding indices of the octagonal numbers are 11, 15, 29, 31, 37, 43, 53, 73, 93, 103, 151, 167, 233, 271, 307, 341, 421, 443, 467, 487, 491, 577, 593, 601, 631, 645, 667, 673, 683, 705, 727, 751, 761, 901, 911, 919, 991, ...
First differs from A216170 at n = 505.
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
oct[n_]:=n(3n-2); Select[oct[Range[1, 1000]], PowerMod[2, (# - 1), #]==1 &]
PROG
(PARI) isok(n) = (n>1) && ispolygonal(n, 8) && !isprime(n) && (Mod(2, n)^n==2); \\ Daniel Suteu, Nov 29 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 20 2018
STATUS
approved