A299988 Lexicographic first sequence of nonnegative integers such that a(n) + a(n+1) has a digit 8, and no term occurs twice.
0, 8, 10, 18, 20, 28, 30, 38, 40, 41, 7, 1, 17, 11, 27, 21, 37, 31, 47, 33, 5, 3, 15, 13, 25, 23, 35, 43, 39, 9, 19, 29, 49, 32, 6, 2, 16, 12, 26, 22, 36, 42, 44, 4, 14, 24, 34, 46, 52, 56, 62, 66, 72, 76, 82, 86, 92, 88, 50, 48, 60, 58, 70, 68, 80, 78, 90, 91, 57, 51, 67, 61, 77, 71, 87, 81, 97, 83, 45, 53, 55, 63, 65, 73, 75, 93, 85, 95, 89, 59, 69
Offset: 0
Crossrefs
Programs
-
PARI
a(n,f=1,d=8,a=0,u=[a])={for(n=1,n,f&&if(f==1,print1(a","),write(f,n-1," "a));for(k=u[1]+1,oo,setsearch(u,k)&&next;setsearch(Set(digits(a+k)),d)&&(a=k)&&break);u=setunion(u,[a]);u[2]==u[1]+1&&u=u[^1]);a}
Comments