A105433 Smallest prime dividing the composite number consisting of n 1's followed by a terminal 3, where n=A105432.
3, 23, 3, 13, 3, 461, 3, 13, 1163, 3, 19, 1077697, 3, 13, 29, 3, 31, 3, 13, 1297561, 3, 81703, 53, 3, 13, 1867, 3, 19, 6053, 3, 13, 163, 3, 1733, 1954503644062423429, 3, 13, 33142829, 3, 79, 24733371888243845161, 3, 13, 193367, 3, 19, 501654709, 3, 13
Offset: 1
Keywords
Links
- Makoto Kamada, Factorizations of 11...113.
Programs
-
Mathematica
FactorInteger[#][[1,1]]&/@Select[Table[FromDigits[PadLeft[{3},n,1]],{n,60}],!PrimeQ[#]&] (* Harvey P. Dale, Jun 04 2012 *)