|
Search: id:A046850
|
|
| |
| |
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Is this sequence infinite?
|
|
LINKS
|
Russo, F. A Set of New Smarandache Functions, Sequences, and Conjectures in Numer Theory., Lupton, AZ: American Research Press, 2000.
|
|
PROGRAM
|
(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
|
Cf. A042947.
Adjacent sequences: A046847 A046848 A046849 this_sequence A046851 A046852 A046853
Sequence in context: A063044 A062560 A135995 this_sequence A097782 A009973 A057687
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Felice Russo (felice.russo(AT)katamail.com)
|
|
EXTENSIONS
|
One more term from Herman Jamke (hermanjamke(AT)fastmail.fm), Mar 30 2008
|
|
|
Search completed in 0.002 seconds
|
