1,1

Is this sequence infinite?

Russo, F. A Set of New Smarandache Functions, Sequences and Conjectures in Numer Theory., Lupton, AZ: American Research Press, 2000.

(PARI) for(n=1, 10^8, if(isprime(n), s=eval(Vec(Str(n))); f1=sum(i=1, #s, s[i]); f0=abs(2*s[1]-f1); f=f0+f1; while(f<=n, if(f==n, print1(n", "); break); f0=f1; f1=f; f=f0+f1))) - Herman Jamke (hermanjamke(AT)fastmail.fm), Mar 30 2008

Cf. A042947.

Sequence in context: A063044 A062560 A135995 this_sequence A159669 A144746 A097782

Adjacent sequences: A046847 A046848 A046849 this_sequence A046851 A046852 A046853

more,nonn

Felice Russo (felice.russo(AT)katamail.com)

One more term from Herman Jamke (hermanjamke(AT)fastmail.fm), Mar 30 2008