A051954 a(n) = smallest palindrome > a(n-1) such that a(1)*a(2)*...*a(n) - 1 is a prime.

3, 4, 5, 6, 8, 9, 11, 22, 88, 232, 272, 303, 333, 383, 434, 454, 555, 787, 797, 848, 999, 1331, 3663, 6666, 10201, 14041, 15951, 17271, 21912, 22122, 24442, 26662, 33433, 35053, 40504, 40804, 44344, 44644, 44844, 45754, 55955, 67976, 72227, 72627

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..100

Mathematica

nxt[{p_, a_}]:=Module[{k=a+1}, While[!PalindromeQ[k]||!PrimeQ[p*k-1], k++]; {p*k, k}]; NestList[nxt, {3, 3}, 50][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 22 2021 *)

Crossrefs

Cf. A051896, A051934.

Subsequence of A002113.

Sequence in context: A292868 A051957 A139483 * A049821 A023729 A299114

Adjacent sequences: A051951 A051952 A051953 * A051955 A051956 A051957

Keyword

nice,nonn,base

Author

Felice Russo, Dec 21 1999

Status

approved