OFFSET
1,1
COMMENTS
The 6 terms with two digits are also Keith numbers. There are 233 numbers below 10^6 in this sequence.
LINKS
Michel Marcus, Table of n, a(n) for n = 1..406 (first 200 terms from Paolo Lava)
EXAMPLE
122 can be split into 12 and 2 and the Fibonacci-like sequence: 12, 2, 14, 16, 30, 46, 76, 122, ... contains 122 itself.
MATHEMATICA
testQ[n_]:= Block[{x, y, z, p = 10, r = False}, While[p < n, x = Floor[n/p]; y = Mod[n, p]; While[y < n, z = x + y; x = y; y = z]; If[y == n, r = True; Break[]]; p *= 10]; r]; Select[Range[10^4], testQ]
PROG
(PARI) isok(n) = {nb = #Str(n); for (i=1, nb-1, x = n\10^i; y = n - 10^i*x; ok = 0; while(!ok, z = x + y; if (z > n, ok = 1); if (z == n, return (1)); x = y; y = z; )); } \\ Michel Marcus, Oct 08 2014
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Giovanni Resta, Aug 20 2007
STATUS
approved