|
|
A127436
|
|
Primes associated with A127435.
|
|
4
|
|
|
2, 5, 17, 37, 101, 257, 1297, 1601, 4357, 15877, 16901, 22501, 24337, 32401, 44101, 57601, 62501, 65537, 72901, 78401, 93637, 156817, 160001, 176401, 184901, 217157, 240101, 309137, 324901, 331777, 417317, 476101, 490001, 562501, 577601, 682277
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A sequence with P=a(k) distinct numbers contains a subsequence of p=A127435(k) monotonically increasing or decreasing terms, according to a corollary of the Erdos-Szekeres theorem.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[(Prime@Range[300] - 1)^2 + 1, PrimeQ] (* Ray Chandler, Jan 23 2007 *)
|
|
PROG
|
(PARI) listp(nn) = {forprime(p=2, nn, if (isprime(q=(p-1)^2 + 1), print1(q, ", ")); ); } \\ Michel Marcus, Jun 08 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|