|
|
A129387
|
|
Where records occur in A129385.
|
|
2
|
|
|
0, 1, 15, 23, 27, 99, 399, 743, 2285, 2683, 13607, 18675, 27299, 66527, 108899, 242087, 504867, 1985907, 2179519, 7883069, 11798723, 20372799, 29842275, 49022007, 70621263, 91817907
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
PROG
|
(PARI) lista(nn) = {my(m, q, r); print1(0); for(k=1, nn, if(k%4 && !(k%2 && isprime((k+1)/2)), q=4+k%2; while(!ispower(q, , &m) || !isprime((q+k)/2), q+=2); if(m>r, print1(", ", k); r=m))); } \\ Jinyuan Wang, Dec 05 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
a(16) inserted by and more terms from Jinyuan Wang, Dec 04 2020
|
|
STATUS
|
approved
|
|
|
|