OFFSET
1,1
COMMENTS
Is this sequence infinite?
LINKS
Russo, F. A Set of New Smarandache Functions, Sequences and Conjectures in Number Theory., Lupton, AZ: American Research Press, 2000.
PROG
(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
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
EXTENSIONS
a(5) from Herman Jamke (hermanjamke(AT)fastmail.fm), Mar 30 2008
a(6) from Sean A. Irvine, Apr 28 2021
STATUS
approved