login
Composite numbers requiring increasingly larger bases to become prime by base reversal.
2

%I #9 Jun 04 2021 03:16:59

%S 4,6,8,9,16,27,36,78,81,102,114,144,270,420,480,750,1848,2382,2940,

%T 13860,14490,14520,21840,31860,33660,44580,80850,1228080,4305210,

%U 5326860,6846840,9796710,9990750,10720710,14910630,15129510,15278250,16785090,17022390,17608500

%N Composite numbers requiring increasingly larger bases to become prime by base reversal.

%C The bases at which these entries occur are in A074901. See A075242.

%H Amiram Eldar, <a href="/A075243/b075243.txt">Table of n, a(n) for n = 1..48</a>

%t NextComposite[n_] := Block[{k = n + 1}, While[PrimeQ[k], k++ ]; k]; f[n_] := Block[{b = 2}, While[b < n && !PrimeQ[ FromDigits[ Reverse[ IntegerDigits[n, b]], b]], b++ ]; b]; If[b != n, b, 0]; b = -1; k = 4; Do[ While[c = f[k]; c <= b, k = NextComposite[k]]; b = c; Print[k], {n, 1, 31}]

%Y Cf. A074901, A075242.

%K base,hard,nonn

%O 1,1

%A _Robert G. Wilson v_, Sep 09 2002

%E More terms from _Amiram Eldar_, Jun 04 2021