|
%I #9 Dec 14 2017 20:00:19
%S 2,3,5,7,11,13,20,31,35,79,97,112,113,300,311,1021,1124,1201,1243,
%T 1333,1465,1546,2011,2114,2231,2312,2536,3001,3122,3337,6752,6877,
%U 7423,7441,7687,7742,7867,7966,8956,8996,10031,10114,10211,11113,11144,11221,11300,11311,11336,11354,11413
%N Prime-slideable numbers: such that a prime can be obtained by moving each digit d by d places either to the left or right, without creating a hole or overlap.
%C A 2-digit number 10a + b is in the sequence if |a - b| = 2 (or 0) and 10b + a is prime.
%e The number 35 is in the sequence because if the digit 3 is moved three places to the left and the digit 5 is moved five places to the left, this results in the number 53 (three place to the left from the initial position, which does not matter), and 53 is prime.
%o (PARI) is_A296236(n,d=matdiagonal(n=digits(n)),v=[1..#n]+n)={!n||forvec(s=vector(#n,i,[0,1]),vecmax(p=v-2*s*d)-vecmin(p)==#p-1&&#p==#Set(p)&&isprime(sum(i=1,#p,10^(vecmax(p)-p[i])*n[i]))&&return(1))}
%Y Cf. A296242 (slideable numbers), A296010 (slideable numbers).
%K nonn,base
%O 1,1
%A _M. F. Hasler_, Dec 09 2017
|
