OFFSET
1,1
COMMENTS
Suggested by R. J. Mathar's comment in A105317.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
. A254719 | |4| |9| |16| |25|27|32| |64|81| |125|128| |169
. +-------+-+---+-+--+--+--+--+--+--+-----+--+--+--+---+---+---+---
. A105317 |0|1|2|3|4|5|8|9|13|16|21|25|27|32|34|55|64|81|89|125|128|144|169
. +-+-+-+-+-+-+-+-+--+--+--+--------+--+--+-----+--+-------+---+---
. A000045 |0|1|2|3| |5|8| |13| |21| |34|55| |89| |144|
PROG
(Haskell)
a254719 n = a254719_list !! (n-1)
a254719_list = g (0 : drop 2 a000045_list) a105317_list where
g fs'@(f:fs) (x:xs) = if x == f then g fs xs else x : g fs' xs
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Feb 06 2015
STATUS
approved