OFFSET
1,2
EXAMPLE
a(6) = 567 = 7*a(5); the digits alternate odd, even, odd.
MAPLE
isA030141 := proc(n) local dgs, i ; dgs := convert(n, base, 10) ; for i from 1 to nops(dgs)-1 do if ( op(i, dgs)+op(i+1, dgs)) mod 2 = 0 then RETURN(false) ; fi ; od ; RETURN(true) ; end: A078226 := proc(nmax) local a, f; a := [1] ; while nops(a) < nmax do f := 3 ; while true do if isA030141(f*op(-1, a)) then a := [op(a), f*op(-1, a)] ; print(op(-1, a)) ; break ; fi ; f := f+2 ; od ; od ; end: A078226(13) ; # R. J. Mathar, Mar 01 2007
PROG
(Python)
A078226_list = [1]
for _ in range(20):
x = A078226_list[-1]
y, x2 = x, 2*x
while True:
y += x2
s = str(y)
for j in range(len(s)-1, -1, -2):
if not s[j] in ('1', '3', '5', '7', '9'):
break
else:
for k in range(len(s)-2, -1, -2):
if not s[k] in ('0', '2', '4', '6', '8'):
break
else:
A078226_list.append(y)
break
# Chai Wah Wu, Nov 06 2014
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 23 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 30 2003
a(12) from R. J. Mathar, Mar 01 2007
a(13), a(14) from Max Alekseyev, May 12 2010
STATUS
approved