A299985 Lexicographic first sequence of nonnegative integers such that a(n) + a(n+1) has a digit 5, and no term occurs twice.
0, 5, 10, 15, 20, 25, 26, 9, 6, 19, 16, 29, 21, 4, 1, 14, 11, 24, 27, 8, 7, 18, 17, 28, 22, 3, 2, 13, 12, 23, 30, 35, 40, 45, 50, 55, 60, 65, 70, 75, 76, 39, 36, 49, 46, 59, 56, 69, 66, 79, 71, 34, 31, 44, 41, 54, 51, 64, 61, 74, 77, 38, 37, 48, 47, 58, 57, 68, 67, 78, 72, 33, 32, 43, 42, 53, 52, 63, 62, 73, 80, 85, 90, 95, 100, 105, 110, 115, 120
Offset: 0
Crossrefs
Programs
-
PARI
a(n,f=1,d=5,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