%I #23 Nov 04 2024 11:13:28
%S 1,3,1,2,1,2,1,2,1,1,2,2,1,2,1,1,1,2,1,1,2,2,1,1,2,1,2,1,1,1,2,1,1,2,
%T 1,1,2,2,1,1,1,2,1,1,1,1,1,2,1,2,1,1,2,1,1,1,1,2,1,1,2,1,2,1,1,1,1,2,
%U 1,2,1,1,1,2,2,1,1,1,1,2,1,2,1,2,2,1,1,2,1,1
%N a(n) is the least k such that 10*k+prime(n) is composite.
%C It appears that a(n)<3 for n>2 (checked up to 10^7).
%C This comment is surely true since every prime except 3 equals 1 or 2 mod 3, so the addition of 10 == 1 mod 3 once or twice makes it divisible by 3. So (3 - (prime(n) mod 3)) is an upper bound. - _Andrey Zabolotskiy_, Nov 01 2016
%H Robert Israel, <a href="/A276988/b276988.txt">Table of n, a(n) for n = 1..10000</a>
%e For n=1, 10+2=3x4 so a(1)=1;
%e For n=2, 13 and 23 are prime, but then 30+3=3x11 so a(2)=3;
%e For n=3, 10+5=3x5 so a(3)=1;
%e For n=4, 17 is prime, but then 20+7=3x9 so a(4)=2.
%p f:= proc(n) local p,k;
%p p:= ithprime(n);
%p for k from 1 do if not isprime(p+10*k) then return k fi od
%p end proc:
%p map(f, [$1..100]); # _Robert Israel_, Nov 04 2024
%o (PARI) isc(n) = (n > 1) && !isprime(n);
%o a(n) = my(k = 0, p = prime(n)); while(!isc(p+10*k), k++); k; \\ _Michel Marcus_, Sep 27 2016
%K nonn
%O 1,2
%A _Yves Debeuret_, Sep 24 2016
%E More terms from _Michel Marcus_, Sep 27 2016