|
|
A051896
|
|
a(n) = smallest palindrome > a(n-1) such that a(1)*a(2)*...*a(n) + 1 is prime with a(1) = 2.
|
|
4
|
|
|
2, 3, 5, 6, 9, 55, 66, 77, 88, 161, 191, 313, 484, 494, 525, 747, 3223, 3993, 11711, 13431, 13731, 18881, 19691, 21012, 21112, 22422, 24242, 34443, 35353, 41114, 44244, 44844, 46664, 52225, 52925, 53935, 58385, 59895, 60806, 64146, 71917
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
nxt[{t_, a_}]:=Module[{k=a+1}, While[(!PalindromeQ[k])||CompositeQ[k*t+1], k++]; {t*k, k}]; NestList[nxt, {2, 2}, 40][[All, 2]] (* Harvey P. Dale, Apr 18 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nice,nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Initial conditions added to description by Chai Wah Wu, Apr 16 2021
|
|
STATUS
|
approved
|
|
|
|