OFFSET
1,1
COMMENTS
Conjecture: All primes are present in A075019.
Records: 2, 3, 25, 43, 157, 271, 397, 481, 511, 2701, 5293, 6511, 7711, 8767, 11941, 12061, 25651, 30901, 30919, 47239, 64033, 145591, etc.
EXAMPLE
a(1) = 2 since the first prime, 2, divides 12;
a(2) = 3 since the second prime, 3, divides 123;
a(3) = 25 since the third prime, 5, divides 12345678910111213141516171819202122232425; although 5 also divides 12345, so does 3 which is less than 5.
MATHEMATICA
f[n_] := f[n] = Block[{p = Prime@ n, k = 1}, While[s = FromDigits@ Flatten[ IntegerDigits@# & /@ Range@ k]; Mod[s, p] > 0 || Union[Mod[s, Prime@ Range[n - 1]]][[1]] == 0, k += 2]; k]; f[1] = 2; Array[f, 51]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Oct 07 2018
STATUS
approved