A219251 Numbers such that the absolute difference of a pair of adjacent decimal digits is not prime.
10, 11, 12, 15, 17, 19, 21, 22, 23, 26, 28, 32, 33, 34, 37, 39, 40, 43, 44, 45, 48, 51, 54, 55, 56, 59, 60, 62, 65, 66, 67, 71, 73, 76, 77, 78, 80, 82, 84, 87, 88, 89, 90, 91, 93, 95, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129
Offset: 1
Programs
-
PARI
is_A219251(n)={for(i=2, #n=digits(n), isprime(abs(n[i-1]-n[i]))||return(1))}
Comments