login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Smallest integer starting a group of exactly n consecutive untouchable numbers (A005114) with term differences of 2.
3

%I #38 Dec 09 2014 03:36:15

%S 246,288,892,9020,11456,23480,52274,33686,190070,1741856,1668564,

%T 7806762

%N Smallest integer starting a group of exactly n consecutive untouchable numbers (A005114) with term differences of 2.

%C Such n-tuplets from A005114 correspond to n+1 positive numbers interspersed with n zeros in A070015, and starting at a(n) - 1. For instance, a(4) = 892 is related to A070015(891) and consecutive values: 2661, 0, 4147, 0, 2945, 0, 1287, 0, 9757.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/UntouchableNumber.html">Untouchable Number.</a>

%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Untouchable_number">Untouchable number</a>

%e a(5) = 9020, because 9020, 9022, 9024, 9026, 9028 are untouchable, while 9018 and 9030 are not so (A001065). For examples with smaller n, see A231964 comments.

%o (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));}

%o 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.

%Y Cf. A001065, A005114, A231964.

%Y Cf. A110875 (analog for sigma(n)).

%K nonn,more

%O 2,1

%A _Michel Marcus_, Nov 16 2013

%E a(10)-a(13) from _Donovan Johnson_, Nov 16 2013

%E Definition, data, and Pari script corrected by _Michel Marcus_ with _Donovan Johnson_, Nov 18 2013