OFFSET
1,2
LINKS
Kenny Lau, Table of n, a(n) for n = 1..20000
EXAMPLE
MATHEMATICA
cncdQ[n_]:=Module[{idn=IntegerDigits[n]}, OddQ[Length[idn]]&&Count[idn, 0] == 1&&idn[[(Length[idn]+1)/2]]==0&&SubsetQ[{0, 6, 8, 9}, idn]]; Select[ Range[ 0, 90000], cncdQ] (* Harvey P. Dale, Jan 06 2022 *)
PROG
(Python)
import sys
f = open('b274765.txt', 'w')
i = 1
n = 0
a = [""]
while True:
for x in a:
for y in a:
f.write(str(i)+" "+x+"0"+y+"\n")
i += 1
if i>20000:
f.close()
sys.exit()
a = sum([[x+"6", x+"8", x+"9"] for x in a], [])
# Kenny Lau, Jul 05 2016
(PARI) is_a001633(n) = #Str(n)%2==1
is_a001743(n) = #setintersect([1, 2, 3, 4, 5, 7], Set(digits(n)))==0
is_a134808(n) = if(n==0, return(1), if(n < 10, return(0), my(d=digits(n), x=1, y=#d); while(x < #d, if(d[x]==0, break); x++); while(y > 1, if(d[y]==0, break); y--); if(x==y && x==ceil(#Str(n)/2), return(1), return(0))))
is(n) = is_a001633(n) && is_a001743(n) && is_a134808(n) \\ Felix Fröhlich, Jul 05 2016
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Kenny Lau, Jul 05 2016
STATUS
approved