OFFSET
2,1
COMMENTS
LINKS
Eric Weisstein's World of Mathematics, Untouchable Number.
Wikipedia, Untouchable number
EXAMPLE
PROG
(PARI) oksucc(v, vi, n) = {for (i = 1, n-1, if (! vecsearch(v, vi+2*i, ) , return (0)); ); return(! vecsearch(v, vi-2) && !vecsearch(v, vi+2*n)); }
a(n) = {v = readvec("untouchable.log"); for (i=1, #v, vi = v[i]; if (oksucc(v, vi, n), return(vi)); ); } \\ readvec reads the file obtained by keeping the second column of b005114.txt seen as a csv file.
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Michel Marcus, Nov 16 2013
EXTENSIONS
a(10)-a(13) from Donovan Johnson, Nov 16 2013
Definition, data, and Pari script corrected by Michel Marcus with Donovan Johnson, Nov 18 2013
STATUS
approved
