OFFSET
1,1
EXAMPLE
a(1) = 4 = 2*2;
a(2) = 141 = 3*47;
a(3) = 41414 = 2*20707;
a(4) = 1414141 = 43*32887.
MATHEMATICA
d[n_] := IntegerDigits[n]; t = {x = 4}; Do[i = 1; While[!PrimeOmega[y = FromDigits[Flatten[{z = d[i], d[x], Reverse[z]}]]]==2, i++]; AppendTo[t, x = y], {n, 12}]; t
nxt[n_]:=Module[{k=1}, While[PrimeOmega[FromDigits[Join[IntegerDigits[k], IntegerDigits[n], Reverse[IntegerDigits[k]]]]]!=2, k++]; FromDigits[ Join[IntegerDigits[k], IntegerDigits[n], Reverse[IntegerDigits[k]]]]]; NestList[nxt, 4, 15] (* Harvey P. Dale, Oct 30 2024 *)
CROSSREFS
KEYWORD
nonn,base,changed
AUTHOR
Michel Lagneau, Dec 01 2014
STATUS
approved