OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..1000
Felice Russo, A Set of New Smarandache Functions, Sequences and Conjectures in Number Theory, Lupton, AZ: American Research Press, 2000.
EXAMPLE
16 is a member because 2,7,9,16,25,... does contain 16.
MATHEMATICA
aQ[n_] := Module[{d = IntegerDigits[n], a}, a[1] = Length[d]; a[2] = Total[d]; a[k_] := a[k] = a[k - 1] + a[k - 2]; k = 1; While[a[k] <= n, k++]; k--; k > 2 && a[k] == n]; Select[Range[1000], aQ] (* Amiram Eldar, Feb 17 2019 *)
gen[d_, s_, mx_] := Block[{a=d, b=s, v = {}, t}, While[True, t=a+b; If[t <= mx, If[d == IntegerLength@ t && s == Total@ IntegerDigits@ t, AppendTo[v, t]], Break[]]; a=b; b=t]; v]; upto[mxd_] := Sort@ Flatten@ Table[gen[d, s, 10^d], {d, mxd}, {s, 9*d}]; upto[20] (* terms < 10^20, Giovanni Resta, Feb 18 2019 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
EXTENSIONS
Corrected and extended by Larry Reeves (larryr(AT)acm.org), Sep 28 2000
a(37)-a(38) from Amiram Eldar, Feb 17 2019
STATUS
approved